Integrating O&S Models During 
Conceptual Design - PART II 

Reliability and Maintainability Model (RAM) 
User and Maintenance Manual 

Annual Report, Part II 
December 31,1 994 

Prepared for 

National Aeronautics and Space Administration 
Langley Research Center 

under 

Grant No NAG1-1-1327 
Prepared by 
Charles E Ebeling 


University of Dayton 

Engineering Management and Systems Department 
300 College Park 


Dayton, Ohio 45469-0236 




Preface 


This document is one of three prepared under NASA (Langley Research Center) 
grant number NAG1-1-1327. Collectively these documents form the technical report covering 
the research activites for the period of time from July 1, 1994 to December 31, 1994. The three 
documents consist of the following: 

1 . Integrating O&S Models During Conceptual Design - Part I 

Summarizes the overall study , objectives , and results. Discusses in detail enhancements 
made to the models developed under this grant. 


2 . Integrating O&S Models During Conceptual Design - Part II 
Reliability and Maintainability Model (RAM), User and Maintenance Manual 

Provides detailed documentation on the RAM model, its execution, and procedures for 
conducting a study using the model. A complete source listing is provided. 

3. Integrating O&S Models During Conceptual Design - Part III 
Simulation of Maintenance and Logistics Support of Proposed Space Systems 
Using SLAM II. 

Documents the SLAM maintenance simulation model which provides for more accurate 
determination of maintenance manpower requirements. A complete example of its use is provided. 
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Chapter 1 


Introduction 


1 . 1 Background 


This report documents the procedures for utilizing and maintaining the Reliability & 
Maintainability Model (RAM) developed by the University of Dayton for the National 
Aeronautics and Space Administration (NASA) Langley Research Center (LaRC) under NASA 
research grant NAG-1-1327. The purpose of the grant is to provide support to NASA in 
establishing operational and support parameters and costs of proposed space systems. As part 
of this research objective, the model described here was developed. Additional documentation 
concerning the development of this model may be found in Part I of this report and in references 
[111 and [12]. 

1.2 Model Development 

The RAM model predicts reliability and maintainability (R&M) parameters for conceptual 
space vehicles using parametric relationships between vehicle design and performance 
characteristics (Table 1) and subsystem mean time between maintenance actions (MTBM) and 
manhours per maintenance action (MHMA). These parametric relationships were developed 
using aircraft R&M data from over thirty different military aircraft of all types. The primary 
source of R&M data was the Air Force AFM 66-1 Maintenance Data Collection (MDC) system 
and the Navy 3-M data system. The data base consisted of AF MDC data as reported in Volume 
V (October 1985 to September 1987) of AFALDP 800-4 and Navy data reported in the July 
1990 - June 1991 R&M Summary Report. Volume VI of AFALDP 800-4 (October 
1987-September 1989) and the MODAS on-line system (January 1990-December 1991) were 
secondary sources. AFALDP 800-4 summarizes R&M data at 6-month intervals. Four 6-month 
periods were averaged together in order to provide more accurate measures. The Navy data is 
presented by quarters. Four quarters were averaged together also to provide for more accurate 
MTBM’s and manhours. Table 2 lists the 37 Air Force and Navy aircraft used in the study and 
Table 3 identifies by two-digit Work Unit Code (WUC) the 26 major aircraft subsystems which 
were included and their correspondence to the 33 major subsystems comprising the NASA Work 
Breakdown Structure (WBS). The NASA WBS defines the subsystems addressed in the model. 
In addition, the user has the option of using shuttle MTBM and mean time to repair (MTTR) 
data obtained from reference [27], or the user may specify a MTBM or MTTR directly. 
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Table 1 

Aircraft Design/Performance Variables' 


VEHICLE DRY WEIGHT VEHICLE LENGTH 

WETTED AREA VEHICLE WING SPAN 

FUSELAGE VOLUME SUBSYSTEM WEIGHTS 

FUSELAGE SURFACE AREA NUMBER OF PASSENGERS 

CREW SIZE NUMBER OXIDIZER TANKS 

NUMBER ENGINES NUMBER INTERNAL FUEL TANKS 

MISSION LENGTH NUMBER OF RCS/OMS ENGINES 

NUMBER OF WHEELS NUMBER ACTUATORS 

NUMBER CONTROL SURFACES MAXIMUM ELECTRICAL OUTPUT 

NUMBER HYDRAULICS SYSTEMS NUMBER AVIONICS SYSTEMS 

BTU COOLING CAPACITY 


Table 2 

AF/NAVY Aircraft 


TACTICAL 

BOMBER 

CARGO/TANKER 

COMMAND/CONTRO 
L /TRAINER 

A-7D/E 

B-1B 

C-2A 

E-2C 

A-10A 

B-52G 

C-5A 

E-3A 

F-4C/D/E 

FB-111A 

C 9A 

EA-6B 

F-5E 


KC-10A 

T-38 

F-14A 


C130B/E/H 


F-15A/C 


KC-135A 


F-16A/B 


C-140A 


F-18A 


C-141B 


F-106 




F-l 1 1A/D/F 





1 Variable definitions of those used in the models are found in Appendix D. 
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Table 3 

WBS to WUC to STS Conversions 
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t io\s | cc<J System 16 40 

I Kicking System 16 50 

Manipulator Systems 16 60 
























































































1.3 Overview 


Chapter 2 discusses the general methodology used within the model. Chapter 3 describes the 
execution and computational sequence. Chapter 4 addresses the input screens and data while 
Chapter 5 defines the output screens and reports. Study analysis and procedures are discussed 
in Chapter 6. Appendix A contains a glossary defining the terms found on the input/output 
screens and reports. Appendix B contains step by step procedures for implementing the model. 
A source listing of the program is included in Appendix C. Variable definitions are contained 
in Appendix D. 
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Chapter 2 
Methodology 


2.1 Parametric Analysis 

Parametric equations of the form given by Eq (1) are used to estimate the following R&M 
parameters: 

MTBM - Mean Flying Hours between Maintenance Actions 

MH/MA - Maintenance Manhours per Maintenance Action 

RR - Subsystem removal rate 

POFF - Percent off-equipment (vehicle) manhours 

CREW - Average crew size per maintenance task 

AB - Abort Rates (Critical Failure Rate) 

Y = B 0 + B 1 X, + B 2 X 2 + ... + B k X k (1) 

where Y = R&M parameter of interest (e.g. MTBF or MH/MA) 

and Xj = jth design or performance specification 
(e.g. vehicle dry weight), j = 1,2, ... k, 

and Bo, Bj, ... , B k are the regression coefficients. 


In addition to the above R&M parameters, regression equations are used to estimate 
subsystem weights and many of the design/performance variables (see Table 1) as functions of 
the vehicle dry weight, length + wing span, number of main engines, crew size, and number 
of passengers. These variables are classified as primary variables while the remaining variables 
are referred to as secondary variables. 

2.2 Computation of MTBM 

An initial MTBM is obtained by subsystem from the derived parametric estimating 
equations. The MTBM is in units of operating (flying) hours between maintenance actions and 
reflects a subsystem operating in an aircraft (air/ground) environment. 2 

2.2.1 Technology and Reliability Growth Factor 


2 The exception is the landing gear subsystem in which the MTBM is measured in missions 
per maintenance action. 
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In order to account for increased reliability as a result of technological change since the time 
the data was collected, a technology growth factor is applied. The baseline year of the data is 
1986 and the MTBM reflects the baseline year. 3 The year (yr) represents the technology 
development year of the vehicle. 

TECH MTBM = MTBM x (1+ADJ FAC) <yr l986) (2) 

A reliability growth factor may then be applied based upon a Duane growth curve having 
an exponent (slope on log scale), b, specified by the user. The reliability growth accounts for 
reliability improvements obtained over the operation (missions) of the vehicle. 

ADJ MTBM = TECH MTBM x (MSN NBR) b (3) 

2.2.2 Inherent MTBM 

Using an estimate, p, obtained from aircraft data reflecting the fraction of maintenance 
actions which are a result of internal component failures (as opposed to externally induced or no 
defect found maintenance actions), an inherent MTBM is computed: 

MTBM, = ADJ MTBM / p (4) 

Inherent maintenance actions are assumed to occur during the vehicle mission time including 
PAD time while under power (or other stress) prior to launch. Non-inherent failures are 
assumed to occur during all other ground processing time. External maintenance actions are 
computed from 

MTBM N = ADJ MTBM / (1-p) (5) 


3 If shuttle data is being used, the baseline year is 1992. 
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2.3 Mission Profile 


For each subsystem, a mission profile curve is assumed having the following form: 

Figure 1 
Mission Profile 


Mission Profile 


Failure Rate 



A further adjustment to the MTBM, is then made to account for the change in failure rates 
(from those of the aircraft air/ground environment) during launch and orbit. During the air (non- 
booster launch and re-entry phase) and PAD phase, failure rates are assumed to be constant 
(exponential) with a MTBM based upon the MTBM] defined above. However, during launch 
under booster rockets, the failure rate is increased by a user specified factor although it is still 
assumed to be constant. On the other hand, while in orbit, the failure rate is assumed to 
decrease over time based upon a Weibull time to failure probability distribution with the shape 
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parameter specified by the user (.28 default value). The scale parameter is computed by the 
model to provide continuity in the failure rate from the nonpowered flight to orbit. The failure 
rate curve may be expressed mathematically as: 


X 

for 

0 Z t< t 0 

KxX 

for 

t 0 4 t< t x 

X 

t \ jb ' 1 

for 

t x £ t< t 2 


for 

for 

t 2 £ t< fc 3 
fc 3 £ t< t 4 


( 6 ) 


where: 


MTBM Z 

K = LAUNCH FACTOR 

and a, and b are the Weibull scale and shape 
parameters respectively 


2.4 Reliability Calculations 

In general, the reliability function is given by 


R(t) = e -'o^^d£ (?) 


For each epoch of the mission profile, the reliability function may be obtained from (6) using 

(7): 


e kt 

for 

Ozt<t 0 

_ - CX c 0 -lc A. ( t-t 0 ) ] 

for 

t 0 zt<t x 

e -A [ ( t+to-tj -K( tj-t 0 ) ] 

for 

t x zt< t 2 

-Mtj+to-ti) -kA ( t t -fc 0 ) -j) 1 " 

for 

t 2 zt<t 3 

/ t, \ b 1 t, \ b 




for 

t 3 zt< t 4 


(B) 


Since the mission profile is repetitive over time, a steady-state MTBM may be computed from 
equation (9). 
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SS MTBM = 


!a*R(C) dt 
l-i?( t 4 ) 


(9) 


The use of the Weibull failure distribution in defining R(t) requires a numerical integration to 
compute the MTBM from Equation (9). Simpson’s rule was used to perform the integration. 

2.4. 1 Critical MTBM 

Using either air abort rates only or air and ground abort rates (AB) computed from 
regression equations (or user specified), a critical MTBM is computed: 

CRIT MTBM = SS MTBM / AB (10) 

With critical failure rates replacing 1/(MTBM,), approximate mission reliabilities are found using 
Equation (8) for each subsystem. A Vehicle reliability is computed by multiplying subsystem 
reliabilities (R,) 


R veh = R, x R 2 x ... x Rk (11) 

Equation (8) assumes no explicit redundancy at the subsystem level. 

A vehicle MTBM is calculated from the subsystem MTBM’s using: 

VEH MTBM = l/[ 1/MTBM, + 1/MTBM 2 + ... + 1/MTBMJ (12) 

where 1/MTBM, is the failure rate of the ith subsystem 4 . 

2.4.2 Specified Subsystem Reliability 

The user may specify a reliability, R^ for a subsystem rather than have the model 
compute this value using Equation (8). When this is the case, the model will compute the 
corresponding CRIT MTBM from Equation (8) by solving 

R(tl) = R»pec 

numerically for the CRIT MTBM. Then an SS MTBM is found from Equation (10): 

SS MTBM = CRIT MTBM x AB (13) 


4 Certain subsystems, such as landing gear, may have failure times based upon cycles (landings) 
rather than operating hours. When this is the case, the MTBM is converted to mean operating hours 
between maintenance in order to compute the vehicle MTBM. 
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which will then be used in all subsequent calculations. 5 
2.4.3 Redundant reliability 

All reliability calculations are based upon the CRIT MTBM. Letting x = — ^ for 

each subsystem, Equation (8) is used to compute a mission reliability at times to, t,, t 2) t 3 , tt, and 
tj. Subsystem redundancy is addressed in one of two ways. For most subsystems, reliability is 
obtained from: 


*.,(0 = l-li-Jyor (14) 

where R,(t) is computed from Equation (8) for the ith subsystem and n, is the number of 
redundant subsystems of type i. For selected subsystems (engines, power, and avionics), a 
k-out-of-n redundancy is computed, where lq is the minimum number of redundant subsystems 
(of type i) which must be operational. This calculation makes use of the binomial probability 
distribution and is given by: 


fyO ■ E ("') W (t -JV0)"'' x (15) 

A vehicle reliability is computed by multiplying the m subsystem redundant reliabilities: 
Rveh(t) = R,i(t) x R, 2 (t) x ... x R, m (t) (16) 


2.5 Maintainability Estimates 

The primary maintainability parameter is the maintenance manhours per maintenance action 
(MHMA). This parameter is estimated from the parametric equations for each subsystem. Then 
total subsystem maintenance actions per mission is found using 

TOT MA = NRD x (GRND PROC HR / MTBM,, + MSN HRS / SS MTBM) (17) 

where NRD = the number of redundant subsystems. Then total manhours per mission for each 
subsystem is found from 

TOT MANHRS = MHMA x TOT MA (18) 

Manhours are then split into on- vehicle and off- vehicle manhours using the percent off-equipment 
hours (POFF) obtained from regression equations: 

TOT ON-VEH MH = (1-POFF) x TOT MANHRS (19) 


5 The calculations are performed numerically using the Newton-Raphson method for finding 
the solution of a nonlinear equation. 
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TOT OFF-VEH MH = POFF x TOT MANHRS 


( 20 ) 


When using shuttle data, MHMA is not computed from the regression equations. Instead: 

MHMA = MTTRxCREW+ ' OFF ' c * BW " t ‘ TT * (21) 

l -POFF 

where MTTR is a direct input to the calculation and represents the mean time to repair on-vehicle 
work only. 

Scheduled maintenance manhours is calculated by multiplying the total on-vehicle MH 
by a percentage. This percentage may be input directly or obtained from a regression equation 
which estimates the scheduled manhours as a percentage of the unscheduled on- vehicle manhours. 

SCHED MH = PCTx(TOT ON-VEH MH) (22) 


2.6 Manpower 

Maintenance manpower requirements are determined in three different ways. The first 
method is to take the total unscheduled manhours of work per month and divide this total by the 
number of hours per month available per technician to do direct maintenance work. That is 

let N = number of missions per month, 

AV = available hours per month per individual 

IND = percent of indirect work (work not included in the MHMA) 

then. 


NBR PER = ( rounded up) + — MHxN ( rounded up) (23) 

(1 -IND)AV v (1 -IND)AV 

The second approach uses the same methodology except it is applied by subsystem. That 
is total manhours represents subsystem manhours and manpower is calculated and rounded up 
by subsystem. Since scheduled maintenance is computed only at the vehicle level and not by 
subsystem, it will not change. 

The third approach identifies the average crew size by subsystem as a minimum 
requirement. If the manpower computed from subsystem manhours exceed the minimum crew 
size requirements, then the larger number should be used otherwise the minimum crew size 
rounded up becomes the manpower requirement. These three methods for determining 
manpower collectively provide lower and upper bounds on the total maintenance manpower 
requirement. 
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2.7 Spare Parts Requirements 

In order to estimate spare parts requirements, it is necessary to distinguish between a failure 
resulting in a remove and replace action versus other maintenance actions such as on-vehicle 
troubleshoot and repair or no trouble found actions. 

A removal rate (RR) per maintenance action obtained from regression equations or a user 
specified value, is used to obtain the mean number of demands (failures) for spares (MFAIL) per 
mission as follows: 


MFAIL = RR x (TOT MA) (24) 

Under the assumption that the number of failures in a given time period follows a Poisson 
process, a spare parts level is found which will satisfy demands a specified percent of the time 
(fill rate). Fill rate represents the percent of time a demand (failure) can be immediately satisfied 
from the on-hand stock. 

Let S = spare parts level to support a given mission and 
p = desired percent of time demands are satisfied (fill rate), then find the smallest value for S 
such that F(S) > = p where 

S 

F(S) = E Exp(-MFAIL) x MFAILj/i! (25) 

i=0 

F(S) is the cumulative probability of demand not exceeding spares level, S. 

2.8 Vehicle Turn Times 

In order to determine the time required to perform maintenance on the vehicle, estimates of 
the number of crews available by subsystem must first be obtained. Once the number of 
assigned crews has been determined, average on-vehicle repair time can be obtained from 


MSN REP TIME 


MTTRxTOT MA 
NBR CREWS 


(26) 


where NBR CREWS is the total number of crews available to perform parallel work on the 
subsystem. Assuming tasks for each subsystem are performed sequentially (a worst case), then 
total vehicle mission repair time is the sum of the subsystem repair times: 


VEH REP TIME = I^u. subsysMSN REP TIME 


(27) 


Scheduled maintenance time may then be added to obtain a total vehicle maintenance task time: 
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(28) 


TOT VEH TASK TIME = VEH REP TIME + 


0.98 xSCHD MHRS 
AVE CREW SIZE 


6 


Mission, pad, and integration time must be included in order to obtain a vehicle turn-around 
time. Therefore, vehicle turn-around time in working days is: 


VEH TURNAROUND = 


MSN TIME* PAD +INTG 
24 


TOT VEH TASK TIME 
sftx 8 


(29) 


Equation (29), by including the number of shifts (sft) in the second term will provide a vehicle 
turnaround time based upon 1, 2, or 3 shift maintenance. Dividing the vehicle turnaround time 
into the number of working days per month gives an estimate of the number of missions per 
month per vehicle: 


MSN/MO/VEH = 


WORKING DAYS jMO 
VEH TURNAROUND 


(30) 


Dividing the required number of missions per month by the number of missions per month per 
vehicle provides an estimate of the required fleet size: 


FLEET SIZE = 


RQD MSNJMO 
MSN I MO! VEH 


( rounded up) 


(31) 


Equation (27) implies that all subsystems will be repaired sequentially. Setting TOT VEH TASK 
TIME (Equation 28) equal to the maximum subsystem MSN REP TIME (or scheduled 
maintenance time, if larger), a minimum vehicle turnaround time assuming all work may be 
accomplished in parallel is obtained. 

2.9 External Tank (ET) and Liquid Rocket Booster (LRB) Calculations 

From input parameters consisting of subsystem MTBM, OPER HRS, CRIT FAIL RT, 
MTTR, and CREW SIZE, subsystem reliability, scheduled and unscheduled manhours and 
manpower are computed. Reliability is derived from: 

OFU MS (32) 

B _ ' tmunaar FAIL m v ' 


and 


UNSCH MH = 0PER HRS x MTTR x CREW SIZE 

MTBM 


(33) 


6 Aircraft data has shown that 98 percent of the scheduled maintenance is on-aircraft maintenance. 
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SCHD MH = PCT x UNSCH MH 


( 34 ) 


MAN PWR - (WSCH MH+SCHD MH)*N ( 35 ) 

(l-IND)xAU 

ET/LRB system reliabilities are obtained by multiplying subsystem reliabilities while system 
manhours and manpower are obtained by summing corresponding subsystem values. Overall 
system reliabilities (VEH+ET + LRB) are computed by multiplying the results of Equation (16) 
by the ET reliability and the LRB reliability which are treated as launch reliabilities. 



CHAPTER 3 


Model Design and Execution 


3.1 Model Design 

The computer model is written in Microsoft QuickBasic Version 4.5 with a compiled 
version available for execution. It will run on any DOS system having a minimum of 640K 
memory. The source program consists of five files containing the modules shown in Table 4. 
In order to modify the software and recompile the executable program, version 4.5 (or higher) 
of Microsoft QuickBasic would be required. The source listing for each module is contained in 
Appendix C. To run the model when the executable file (RAM. EXE) is stored in the current 
directory, the user types RAM at the DOS prompt. 


Table 4 

Computer Files & Modules 


File 

RAMX.BAS 


RAM2.BAS 


Module 

Description 


main file - contains input nodules 

BOOSTER 

coiputes reliability paraneters for both a liquid 
rocket booster and an external tank. 

COMFAC 

provides input nenus for the coiputational factors 

DRIVER 

controls coiputational sequencing 

INFILE 

reads input data fron a file 

INIT 

initializes variables and assigns values to arrays 

INMEND 

displays priiary input nenu and selected input screens 

LCCFILE 

saves specified input/output to a file for use by 
costing lodel 

MAIN 

displays lain lenu 

MSN 

initalizes nission profile 

ODTFILE 

writes input data to a file 

PCTWGT 

coiputes subsystem weights fron weight distribution 

PRIVAR 

contains priiary variable selection lenu 

REL 

allows user to specify subsystem reliability 

SHUTTLE 

displays/updates shuttle or user specified HTBM and 
MTTR values 

WEIGHT 

displays/updates subsystem weights 


contains screen display reports 

AGRT 

displays aggregated systei R&M parameters 

DISPLAY 

contains screen display (output) selection lenu 

MAINTDIS 

displays laintenance report 

MANDISPLAY 

displays lanpower report 

RELDISPALY 

displays reliability report 

SPAREDISPLAY 

displays spare parts report 

SUMMARY 

displays systei summary report 

TURNTIME 

displays/computes vehicle turntimes 
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Table 4 (continued) 
Computer Files & Modules 


File 

Module 

Description 

RAM3.BAS 


contains printer reports 


ECHO 

prints all input data 


ETSRB 

prints LRB and ET reliability reports 


PRINTMAINT 

prints laintenance report 


PRINTMAN 

prints manpower report 


PRIHTREL 

prints reliability report 


PRIHTSPR 

prints spare parts report 


PRINTSOM 

prints sunary report 


PRINTTORN 

prints turntine report 


REPORT 

displays report selection lenu 


SIMREP 

prints coiputed values for use in simulation aodel 

RAMC.BAS 


contains coaputational lodules 


ABORT 

coaputes abort (critical failure) rates 


ACWGT 

computes aircraft weight distribution 


COMPH 

coaputes subsystem HTBH if reliability is given 


COMREL 

coaputes non-redundant subsystem reliability 


CREW 

coaputes subsystem crew sizes 


CRIT 

coaputes the critical HTBH 


EQS 

coaputes initial HTBH and HHHA 


MANPWR 

coaputes subsystem manpower requirements 


POFFEQS 

computes percent off-vehicle values 


REDONREL 

computes redundant subsystem reliabilities 


REMEQS 

coaputes removal rates 


SECONDARY 

computes secondary variable values 


SIM 

computes simulation model parameters 


SPACEHTBH 

computes space adjusted HTBH 


SPARES 

computes spare part requirements 


TECH 

computes technology and reliability growth MTBN 

RAHW.BAS 


contains ASCII file output module 


WRFILE 

writes all input/output reports to an ASCII file 
except for the Sunary Report 
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3.2 Initialization Sequence 

Upon execution, the model will perform the following initialization activities in the order 

listed: 


3.2.1 Display Opening Banner 

The user will be requested to provide a file/project name. This name will be used 
for all files written to or read from during execution. If a name is not provided, the program 
will assign "NO NAME." The user may change the name at any time during execution. 

3.2.2 Initialize Variables and Arrays 

Default values are assigned to all input variables. Arrays are assigned numeric 
or alphanumeric values from data statements contained in the main module (RAMX.BAS). 
Shuttle values are read in at this time from data statements. 

3.2.3 Initialize mission profile 

The mission profile (Figure 1) is assigned default values. All subsystems are then 
initialized to these same values. 

3.2.4 Compute subsystem weights 

A weight is assigned to each subsystem based upon the shuttle weight distribution 
and the default vehicle dry weight. Those subsystems having zero percent weight from the 
shuttle weight distribution will be set to "NO COMPUTE" and will not be displayed on any of 
the screens or output products. After initialization, the user may restore these subsystems 
provided they are assigned a nonzero weight (percent). 

3.2.5 Perform Shuttle Clean-up 

Converts shuttle MTBM and MTTR values to conform to the NASA WBS (Table 
3) based upon the shuttle weight distribution. Weights are then recomputed to conform to the 
large aircraft distribution. 

3.2.6 Compute R&M parameters 

Calls the computation driver module (DRIVER) which computes reliability and 
maintainability values from the default input parameters. DRIVER sequencing is discussed later. 


17 



3.2.7 Display Main Menu 

At this point all input and output variables have been assigned values. The 
program calls the main menu and waits for the user to select one of the options from the main 
menu: 


Figure 2 
Main Menu 


NBR SELECTION 

1 READ INPUT FROM A FILE 

2 INPUT PARAMETER MENU 

3 COMPUTE R&M PARAMETERS 

4 SCREEN DISPLAY (OUTPUT) MENU 

5 SAVE INPUT PARAMETERS 

6 SAVE DATA FOR COST MODEL 

7 CHANGE VEHICLE/FILE NAME 

8 PRINT OUTPUT REPORT(S) 

9 TERMINATE SESSION 


3.3 Main Menu Options 

3.3.1 Read Input From a File 

This option allows the user to input a DOS file which has been previously saved 
under Main Menu NBR 5, Save Input Parameters. This file contains all input parameters 
necessary to execute the model. The file name is the name currently displayed by the program 
with a .DAT extension. If the file does not reside in the active directory/subdirectory, the 
vehicle/file name must include the applicable directory/subdirectory. For example: 
"A:\SHUTTLE". The extension is added automatically by the program. Upon successfully 
reading in the input file, the model automatically recomputes the output values. 

3.3.2 Input Parameter Menu 

Selection of this option will display the primary input menu (see Section 4.1). 
The user must select this menu to update any of the input parameters. 

3.3.3 Compute R&M Parameters 

This invokes the computation driver module which contains the overall sequence 
for recomputing the output. The computational sequence is discussed further in Section 3.4. 


18 



Reliability & Maintainability 
Menu Hierarchy 


Read Input 
from File 


Mam Menu 

[ 

Print Output 
Reports 


— print input data 

— print summary report 

— print reliability report 

— print maintainability report 

— print manpover report 

— print spares report 

— print turntime report 

— print ET/LRB report 

— print total output 

— print total input/ output 

— simulation model input 

— send report to a file 


- technology /ret i ability growth 

- critical failure rate 

- removal rates 

- crew sizes 

- percent off equipment 

- fraction inherent failures 

- calibration factors 


Input Compute R&M Save Input 

parameter Parameters Parameters 

menu 

- select shuttle/arcxaft 

- add/delete subsystem 

- update/display primary system parameters 

- update/display waght distribution 

- update/dispfary secondary variables 

- update/display mission profile 

- update/display operating hrs 

- update/display subsystem redundancy 

- update/di splay ET/LRB reliability data 

- update/display shuttle MTBM/MTTR 

- change scheduled maintenance 

- establish subsystem reliabilities 

- computational factors 


H \ r~ 

Screen Display Save Data for Change 
(output) Menu Cost Model vehicle/file 

name 

— reliability report 

- manta natality report 

— manpower reqquirements 

— spaes requirements 

- vehicle turn time report 

- system performance summary 
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3.3.4 Screen Display (output) Menu 

Displays the menu for selecting screen display of the various output reports. The 
output reports are discussed in Chapter 5. 

3.3.5 Save Input Parameters 

Stores all current input parameter values in a DOS file having a file name 
"name.DAT" where name is the current name given to the vehicle/file by the user. To store 
the data on a file in a different directory/subdirectory, the directory/subdirectory must be part 
of the vehicle/file name. For example: C:\STUDY\name". The file extension ".DAT" is 
automatically assigned by the program. The file may be read back in by selecting "Read Input 
from File" (Main menu NBR 1). 

3.3.6 Save Data for Cost Model 

Stores certain categories of input/output data in a DOS file for use in a 
corresponding costing model (LCC). The name given to the file is the same as the current 
vehicle/file name provided by the user. The program automatically assigns a file extension 
".CST". 

3.3.7 Change Vehicle/File Name 

Allows the user to redefine the vehicle/file name. This is useful when the input 
parameters have been changed/updated to reflect a different scenario or a different vehicle. 
These new parameters can then be saved under a different file name. This option may also be 
used to read in a different input file or to save or read a file in a different directory /subdirectory 
(see 3.3.1 and 3.3.5). 

3.3.8 Print Output Reports 

Displays a report menu used to select any of the output reports as well as the input 
data for printing on a parallel port printer. The Report Menu also includes an option for saving 
all input/output in an ASCII file. This file may then be read by a wordprocessor or sent over 
a LAN network for subsequent printing on a serial port printer. A special report for use in the 
maintenance simulation model (MSM) may also be obtained from this menu. 

3.3.9 Terminate Session 

Returns control back to the DOS system. A final opportunity to save input data 
to a DOS file is available first. This option will also remove two temporary files created in the 
default (current) directory/subdirectory which permit a file display when saving a file or reading 
a file for the first time. 
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3.4 Computational Sequence 


When the user selects the option to RECOMPUTE, a call is made to the DRIVER 
module which controls the sequencing of the calculations and executes the computational 
modules. The following sequence takes place: 


Computational Flow 



Figure 3 


3.4.1 An input screen will request the user to identify those parameters which are not 
to be recomputed from the regression equations. "DO NOT RECOMPUTE" is automatically 
assigned to all the parameters listed when reading in an existing input file (" .DAT"). Any 
parameter in which the user has specified one or more subsystem values, will be assigned a "DO 
NOT RECOMPUTE." The user may override this selection. The following parameters are 
affected: 


Critical Failure (abort) rates 
Fraction off- vehicle 
Removal rates 
Crew sizes 

Scheduled maintenance percent 

3.4.2 (CALL WGT) If the user is in the PRECONCEPTUAL mode, the subsystem 
weights are recomputed using the current weight distribution. 

3.4.3 (CALL SECONDARY) If the user is in the PRECONCEPTUAL or WEIGHT- 
DRIVEN modes, the secondary variables are recomputed from the regression equations. 
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3.4.4 (CALL CREW) Unless specified otherwise, the CREW SIZE is recomputed 
from the regression corresponding equations. For Shuttle subsystems, the default shuttle crew 
size (4.5 or 9) is assigned. 

3.4.5 (CALL EQS) The primary parametric equations are evaluated to determine the 
MTBM and the MHMA values. For shuttle subsystems, the default (shuttle values) or user 
specified values are used. Single subsystem weights are used when called for in the equations. 
These are determined by dividing the total subsystem weight by the number of redundant 
subsystems. Calibration factors are applied to the MTBM and MHMA values (default is 1). 
Unless otherwise specified, a scheduled maintenance fraction is determined from a parametric 
equation. A vehicle MTBM is then computed. 

3.4.6 (CALL POFF) Unless otherwise specified, the fraction of off-vehicle work is 
computed from parametric equations. A default value from the system parameter table is used 
for those subsystems in which parametric equations are not available. Single subsystem weights 
are used. 

3.4.7 (CALL ABORT) Unless otherwise specified, critical failure rates are determined 
from parametric equations. A default value is used for those subsystems in which parametric 
equations are not available. Single subsystem weights are used. If air abort only is selected as 
from the primary system parameter table, then the air + ground abort rate is adjusted from fixed 
percentages (of air aborts of the total aborts). The default value is then assumed to be an air 
abort only value. 

3.4.8 (CALL REMOVAL) Unless otherwise specified, removal rate fractions are 
determined from parametric equations. Single subsystem weights are used. If the subsystem is 
to be shuttle based, then shuttle removal rates are used in place of the parametric equations. 

3.4.9 (CALL TECH) Technological and reliability growth adjustments are made to the 
MTBM. 

3.4.10 (CALL SPACE) The technology and reliability adjusted MTBM is split into an 
inherent MTBM and a non-inherent (externally induced and no defect found) MTBM. The 
inherent MTBM is then modified to account for the launch and orbit environment (see paragraph 
2.2.2 and 2.2.3). 

3.4.11 (CALL CRIT) Critical failure MTBM’s (CRIT MTBM) are computed by 
dividing the space adjusted MTBM by the abort rate. These are used in the reliability 
calculations. 

3.4.12 (CALL COMPM) A check is made to see if any subsystems have a user 
specified reliability. If so, a corresponding critical MTBM and space adjusted (inherent) MTBM 
are found using numerical procedures. Inherent vehicle MTBM’s are recomputed incorporating 
these values. 
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3.4.13 (CALL COMREL) A nonredundant subsystem reliability is computed using the 
CRIT MTBM. 

3.4.14 (CALL REDUN) A redundant subsystem and vehicle reliability is computed for 
each epoch of the mission. These values are based upon the number of redundant subsystems 
specified by the user or the k out of n redundancy where applicable (i.e. engines, power 
subsystems and avionics subsystems). 

3.4.15 (CALL MANPOWER) Subsystem manpower is computed based upon the total 
number of maintenance manhours generated per month. Scheduled maintenance manpower is 
also determined. 

3.4. 16 (CALL SPARES) Initial spares requirement is found based upon the removal rate 
and total number of maintenance actions. 

3.4.17 (CALL SIM) Aggregated system R&M parameters are computed to support 
output screen display (AGRT) and printed (simulation input) report options. 

3.4.18 Return to main menu. Turntime calculations are computed when a turntime 
output screen or report is requested. 
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Chapter 4 


Model Input 


4. 1 Primary Input Menu 

When the user selects INPUT PARAMETER MENU from the main menu, the menu 
shown in Figure 4 is displayed: 


Figure 4 

Input Parameter Menu 


HBR SELECTION 

1 ADD/DELETE A SUBSYSTEM 

2 SELECT SHUTTLE/AIRCRAFT 

3 UPDATE/DISPLAY PRIMARY SYSTEH PARAMETERS 

4 UPDATE/DISPLAY SUBSYSTEM WEIGHTS 

5 UPDATE/DISPLAY SECONDARY VARIABLES 

6 UPDATE/DISPLAY COMPUTATIONAL FACTORS 

7 UPDATE/DISPLAY MISSION PROFILE 

8 UPDATE/DISPLAY SYSTEM OPERATING HRS 

9 UPDATE/DISPLAY REDUNDANCY CONFIGURATION 

10 UPDATE/DISPLAY LRB/ET RELIABILITY DATA 

11 UPDATE/DISPLAY SHUTTLE MTBM'S & MTTR'S 

12 CHANGE SCHEDULED MAINTENANCE PERCENT 

13 ESTABLISH SUBSYSTEM RELIABILITIES 

return exit to lain lenu 


4.1.1 Add/Delete a Subsystem 

Permits the user to structure the WBS to a particular vehicle by deleting any of 
the 33 subsystems available. The user may also change the names given to any of the 
subsystems. However, if changing the name implies a different subsystem from the default 
subsystem, then the user should also identify that subsystem as "SHUTTLE" and specify 
appropriate MTBM and MTTR values (see 4.1.2). The parametric equations are valid only for 
the subsystems originally identified. 

4.1.2 Select Shuttle/ Aircraft 

The MTBM and MTTR for each subsystem will be based upon the parametric 
equations if "AIRCRAFT" is selected and will be based upon the shuttle displayed values (see 
4.1.11) if "SHUTTLE" is selected. If the user desires to specify a MTBM and MTTR, then 
"SHUTTLE" should be selected. 
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4.1.3 Update/ Display Primary System Menu 

The user must specify values for the primary driver variables. 

Table 5 

Primary Driver Variables 
var NBR 

1 DRY WEIGHT (lbs) 

2 LENGTH (ft) 

2 WING SPAN (ft) 

3 CREW SIZE 

4 NBR PASSENGERS 

5 NBR MAIN ENGINES 

21 NBR RCS ENGINES 

22 NBR QMS ENGINES 


the following parameter values must be specified: 

Table 6 

System Parameter Values 


t NBR 

PARAMETER 

DEFAULT 

DESCRIPTION 

6 

ADJ SHUTTLE HTBM 

0-No 

Determines if launch/space adjustment will be applied to 
shuttle selected MTBH's 

7 

TECHNOLOGY YR 

1996 

Year to be used in applying the technology growth factor 

8 

DEFAULT ABORT RATE 

.001 

Abort rate used for subsystems not having parametric equations 

9 

WEIBULL SHAPE PARAMETER 

.28 

Shape parameter for Weibull distribution used during orbit 
tiie when applying the launch/space adjustment 

10 

LAUNCH FACTOR 

20 

A multiplicative factor which increases the failure rate 
during launch when applying the launch/space adjustment 

11 

AVAIL MANHRS /MONTH 

144 

The average number of hours a month a single maintenance 
worker is available within the workplace 

12 

FRACTION INDIRECT WORK 

.15 

The fraction of the available tiie a worker spends performing 
indirect work (work not addressed by the model) 

13 

SPARE FILL RATE OBJ 

.95 

The fraction of time a spare is to be available when a failure 
(removal) occurs (sets fill rate goal for computing spares) 

14 

AVG CREW SIZE-SCHD MAINT 

7 

The average nuiber of workers simultaneously performing 
scheduled maintenance - used in computing turntimes 

15 

PLANNED MISSIONS/YEAR 

12 

The nuiber of missions per year to be flown 

16 

MODE INDICATOR 

0 

See para 4.2 

17 

VEHICLE INTEGRATION TIME 

2 

Number of days required to perfon vehicle integration 

18 

LAUNCH PAD TIME (days) 

1 

Nuiber of days vehicle is on launch pad for processing 

19 

AGGREGATE AVIONICS 

0-N0 

Roll-up the six avionics subsystems into a single subsystem 

20 

DEFAULT FRACTION OFF MANHRS .2 

The fraction of total maintenance manhours spent on off- 
vehicle work - used if no parametric equation is available 

23 

REL GROWTH SLOPE 

.5 

Exponent used in the reliability growth adjustment to the HTBM 

24 

REL GROWTH MSN NBR 

1 

Mission nuiber at which the reliability growth adjustment 
applies (no growth is realized at the default value) 

25 

AIR&GRND / AIR ABORTS 

0-AIR+GRND 

Bases critical failure rates on either air and ground aborts 
or air only aborts. 
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4. 1 .4 Update/Display Subsystem Weights 


When in the preconceptual mode (see para 4.2.1), the user may select a weight 
distribution from either a large vehicle distribution, small vehicle distribution, shuttle weight 
distribution, or parametrically computed from aircraft weight distributions. The user may also 
input his own distribution. From the selected distribution, subsystem weights are computed 
based upon the vehicle DRY WEIGHT. When in the weight-driven or weight-variable driven 
modes, the user must specify the subsystem weights. The weights may be adjusted by a common 
factor when performing sensitivity or trade-off analysis. 

4.1.5 Update/Display Secondary Variables 

When in the preconceptual or weight-driven mode, this selection will only display 
the computed values of the secondary variables (obtained from a call to the module 
SECONDARY). In the variable driven mode, the user will update these values through an input 
screen. Complete definitions of these variables may be found in Appendix D. 

Table 7 

Secondary Variables 


VAR NBR 

1 Fuselage area (sq ft) 

2 Fuselage Voluae (cu ft) 

3 Wetted Area (sq ft) 

4 Nbr wheels 

5 Nbr Actuators 

6 Nbr Control Surfaces 

7 KVA MAX 

8 Nbr Hydraulic Subsystems 

9 Nbr Fuel Tanks (internal) 

10 Total nbr Avionics Subsystems 

11 Nbr Different Avionics Subsystem 

12 BTO Cooling 

13 Nbr Oxidizer Tanks 
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4.1.6 Update/ Display Computational Factors 


The following factors may be displayed and updated: 

Table 8 

Co»putational Factors 7 

TECHNOLOGY GROWTH FACTOR CRITICAL FAILURE RATE* 

REHOVAL RATES* FRACTION OFF-VEHICLE* 

CREW SIZE* NBR CREWS ASSIGNED 

FRACTION INHERENT FAILURES 

Each computational factor is discussed in paragraph 4.3. 

4.1.7 Display and Update Mission Profile 

Allows the user to specify the time in hours for each segment of the mission 
beginning with ground processing, then pad time, launch, non-powered flight to orbit, orbit, and 
return. Beginning at launch (T=0), times are cummulative. The user has the option of updating 
subsystem operating hours with the mission segment times. 

Figure 5 

Mission Profile 


NBR TIME IN HOURS 

1 GROUND POWER TIME 200 

2 PAD TIME 10 

LAUNCH TIME AT T=0 

3 POWERED PHASE COMPLETION TIME .14 

4 ORBIT INSERTION TIME 1 

5 ORBIT COMPLETION TIME 71 

6 REENTRY TIME 72 


ENTER NUMBER TO BE CHANGED OR 0 IF NONE? 


7 For those factors identified by a *, any changes to the displayed values will result in a NO 
COMPUTE assigned to that factor when a recomputation is requested. The user may override 
and request the factor be recomputed from the parametric equations. 
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4.1.8 Update/ Display System Operating Hours 

Figure 6 8 

SUBSYSTEM OPERATING HOURS 


NBR 

SUBSYSTEM 

PROCESS 

PAD 

BOOST RE TIHE 

ORBIT 

REENTRY 



TIME 

TIME 

TIME 

TO-ORBIT 

TIME 

TIME 

1 

1.00 WING GROUP 

200 

10 

.14 

.86 

70 

1 

2 

2.00 TAIL GROUP 

200 

10 

.14 

.86 

70 

1 

3 

3.00 BODY GROUP 

200 

10 

.14 

.86 

70 

1 

7 

4.20 IEP-TCS 

200 

10 

.14 

.86 

70 

1 

9 

5.00 LANDING GEAR 

1 

0 

0 

0 

0 

1 

10 

6.00 PROPULSION-MAIN 

200 

10 

.14 

.86 

0 

0 

16 

10.00 ELECTRICAL 

200 

10 

.14 

.86 

70 

1 

18 

12.00 AERO SURF ACTUATORS 

200 

20 

.14 

.86 

70 

1 

19 

13. XX AGGREGATED AVIONICS 

200 

10 

.14 

.86 

70 

1 

25 

14.10 ENVIRONMENTAL CONTROL 

200 

10 

.14 

.86 

70 

1 

26 

14.20 ECS-LIFE SUPPORT 

200 

10 

.14 

.86 

70 

1 

29 

16.20 REC & AUX-ESCAPE SYS 

200 

10 

.14 

.86 

70 

1 

32 

16.50 REC & AUX DOCKING SYS 

200 

10 

.14 

.86 

70 

1 


ENTER NUHBER OF SUBSYSTEM TO BE CHANGED - 0 IF NONE? 


Each subsystem’s operating hour profile defaults to the vehicle mission profile. 
The user may then adjust each subsystem based upon that subsystem mission profile and 
maintenance practices and procedures. In computing space adjusted MTBM’s, the ground 
segment, non-booster time to orbit, and recovery segments have constant failure rates based upon 
the calibrated MTBM as adjusted for technology and the steady-state ground/air/space 
environment. During the launch (booster) segment, the failure rate is increased by the launch 
factor (system parameter number 8). During the orbit segment, the failure rate is assumed to 
be decreasing based upon the Weibull shape parameter (system parameter number 7). The 
ground segment maintenance actions are based upon the external MTBM while all other segment 
maintenance actions are based upon the inherent MTBM. Input should be for an entire 
subsystem separated by commas. Current values will be retained by defaulting with a comma; 
e.g. 10,1,, 2,, 3 will result in the third and fifth entry defaulting to its present value and the first, 
second, fourth, and sixth values being 10, 1, 2, and 3 respectively. 


8 All subsystem displays show only 13 of the 33 subsystems as example input and output. 
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4.1.9 Update/Display Redundancy Configuration 

Except for engines, all subsystems are defaulted to one. This screen is used to 
identify multiple active redundant subsystems. For power (WBS 9. XX), propulsion (WBS 6.00, 
7.00, 8.00), and avionics (WBS 13. XX) subsystems, a k out of n redundancy may be specified. 
Engines are defaulted to n out of n, where n is the number of main, RCS, and OMS engines 
specified on the system parameter table. 


Figure 7 

SUBSYSTEM REDUNDANCY 


NBR SUBSYSTEM REDUNDANT 

SUBSYS 


1 

2 

3 

7 

9 

10 
16 
18 
19 

25 

26 
29 
32 


1.00 WING GROUP 1 

2.00 TAIL GROUP 1 

3.00 BODY GROUP 1 

4.20 IEP-TCS 1 

5.00 LANDING GEAR 1 

6.00 PROPULSION-MAIN 3 

10.00 ELECTRICAL 2 

12.00 AERO SURF ACTUATORS 1 
13. XX AGGREGATED AVIONICS 2 
14.10 ENVIRONMENTAL CONTROL 2 

14.20 ECS-LIFE SUPPORT 1 

16.20 REC & AUX-ESCAPE SYS 1 
16.50 REC & AUX DOCKING SYS 1 


ENTER NUMBER OF SUBSYSTEM TO BE CHANGED - 0 IF NONE? 9 


MIN NBR 

REQUIRED 

1 

1 

1 

1 

1 

3 

1 

1 

1 

1 

1 

1 

1 


^Whenever a zero (0) response is appropriate, the user may select "enter" or "return" instead. 
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4.1.10 Update/Display LRB/ET Reliability Data 

This selection will allow for the calculation of an LRB and/or ET reliability to be 
used in computing an overall system reliability. Unlike the other displays, the screens shown 
in Figure 8 contain both input parameters and R&M output values. The overall reliabilities are 
used in the System Performance Summary Report only. 

Figure 8 




EXTERNAL FUEL TANK INPUT 

DATA 


NBR 

SUBSYSTEM 

MTBM OPER 

HRS CRIT FAIL 

RT MTTR 

CREW SIZE 

1 

ELECTRICAL 

20.42 72 

. 001 

13.68 

4 . 5 

2 

PROP-FLUIDS 

4 72 

.001 

18 

4 . 5 

3 

RANGE SAFETY 

44.77 72 

.001 

64.65 

4 . 5 

4 

STRUCTURES 

.0354 1 

.001 

6.83 

4 . 5 

5 

THERMAL-TPS 

.0219 1 

.001 

1 . 55 

4 . 5 

ENTER NUMBER FOR 

CHANGE? 




ENTER SCHD MAINT 

AS A PCT OF 

UNSCH MAINT? .7 





COMPUTED 

MISSION 

MANHR DRIVEN 

SUBSYSTEM 

RELIABILITY 

UNSCH MANHRS 

SCH MANHRS 

MANPWR 


ELECTRICAL 

. 9964802 

217.0578 

151.9404 

7 


PROP-FLUIDS 

. 982161 

1458 

1020.6 

44 


RANGE SAFETY 

. 9983931 

467.8713 

327.5099 

14 


STRUCTURES 

. 9721467 

868.2203 

607.7542 

26 


THERMAL-TPS 

. 9553647 

318.4931 

222.9452 

10 

OVERALL ET 

.9075152 

3329.643 

2330.75 

101 


note: set rel iabil ity=l to eliminate subsystem 

ENTER NEW RELIABILITY -OR RETURN TO USE COMPUTED? 



LIQUID ROCKET BOOSTER INPUT 

DATA 


NBR SUBSYSTEM 

MTBM OPER 

HRS 

CRIT FAIL RT MTTR 

CREW SIZE 

1 ELECTRICAL 

35.21 669 


.001 

1 

4 . 5 

2 PROPULSION 

70 677 


. 001 

1 

4 . 5 

3 RANGE SAFETY 

102 677 


. 001 

1 

4 . 5 

4 STRUCTURES 

75 667 


. 001 

1 

4 . 5 

ENTER NUMBER FOR 

CHANGE? 





ENTER SCHD MAINT 

AS A PCT OF UNSCH 

MAINT? .7 




COMPUTED 


MISSION 


MANHR DRIVEN 

SUBSYSTEM 

RELIABILITY 

UNSCH MANHRS 

SCHED MANHRS 

MANPWR 

ELECTRICAL 

. 9811791 

85 . 

50128 

59.85089 

3 

PROPULSION 

.9903752 

43 . 

52143 

30.465 

2 

RANGE SAFETY 

. 9933847 

29 . 

86765 

20.90735 

1 

STRUCTURES 

.9911461 

40 . 

02 

28.014 

2 

OVERALL LRB 

.9567603 

198 

.9104 

139.2372 

8 


note: set reliability^! to eliminate subsystem 


ENTER NEW RELIABILITY -OR RETURN TO USE COMPUTED? 
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4.1.11 Update/ Display Shuttle MTBM’s and MTTR’s 

When "SHUTTLE" is selected the subsystem values displayed will be used in 
computing the R&M parameters. The default values were computed from shuttle data (see 
reference 12). The user may specify any MTBM and MTTR to be used in the computation. 


Figure 9 

Shuttle MTBH/HTTR Update/Display Screen 


Note : 


SHUTTLE MTBM (HRS/MAINT ACTION) VALUES 
all MTBM's should be for a single subsystem 


NBR SUBSYSTEM 

1 1.00 WING GROUP 

2 2.00 TAIL GROUP 

3 3.00 BODY GROUP 

7 4.20 IEP-TCS 

9 5.00 LANDING GEAR 

10 6.00 PROPULSION-MAIN 

16 10.00 ELECTRICAL 

18 12.00 AERO SURF ACTUATORS 


MTBM 
3.7824 
22.24941 
1.365487 
5 

9999 MSN/FAILURE 
21.06 (single engine 
17.4 

17.27139 


19 13. XX AGGREGATED AVIONICS 34.41 

25 14.10 ENVIRONMENTAL CONTROL 24.47 

26 14.20 ECS-LIFE SUPPORT 100 

29 16.20 REC & AUX-ESCAPE SYS 200 

32 16.50 REC & AUX DOCKING SYS 300 

NOTE: indicates shuttle value currently in use 
ENTER NBR OF SUBSYSTEM TO BE CHANGED - 0 IF NONE? 


SHUTTLE MTTR VALUES - Note: MTTR is the average repair time in hours 

to complete a single maintenance action given the corresponding avg crew size 
NBR SUBSYSTEM MTTR 


1 

1.00 WING GROUP 

14.5 

2 

2.00 TAIL GROUP 

14 . 5 

3 

3.00 BODY GROUP 

14 . 5 

7 

4.20 IEP-TCS 

15 

9 

5.00 LANDING GEAR 

12.12 

10 

6.00 PROPULSION-MAIN 

4.02 

16 

10.00 ELECTRICAL 

6 .41 

18 

12.00 AERO SURF ACTUATORS 

12.12 

19 

13. XX AGGREGATED AVIONICS 

9.91 

25 

14.10 ENVIRONMENTAL CONTROL 

9.9 

26 

14.20 ECS-LIFE SUPPORT 

9 . 9 

29 

16.20 REC & AUX-ESCAPE SYS 

10 

32 

16.50 REC & AUX DOCKING SYS 

12.12 

NOTE: 

indicates shuttle value currently 

in use 

ENTER 

NBR OF SUBSYSTEM TO BE CHANGED - 0 

IF NONE? 
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4.1.12 Change Schedule Maintenance 

Scheduled maintenance is determined as a computed percent of the unscheduled 
maintenance. The percent used is determined from a parametric equation. The user may specify 
a percent to be used in the computation in place of the computed value. 

4.1.13 Establish Subsystem Reliabilities 

Each subsystem may have different reliabilities specified. By default, each subsystem will 
have its reliabilities determined based upon a computed or user specified MTBM, critical failure 
rate, and operating hour profile. However, the user may specify a desired reliability for a 
subsystem by assigning a value between zero and one. In order to reverse the process and have 
the model compute the reliability once a value has been specified, enter a zero (0) reliability 
value. 


Figure 10 

ESTABLISH SUBSYSTEM RELIABILITY 

specify nonredundant subsystei reliability at the end of the lission 
enter a zero reliability to have the systei coipute a value 


NBR 

SUBSYSTEM RELIABILITY 

1 

1.00 WING GROUP 

COMPUTED 

2 

2.00 TAIL GROUP 

COMPUTED 

3 

3.00 BODY GROUP 

COMPUTED 

7 

4.20 IEP-TCS 

.99889 

9 

5.00 LANDING GEAR 

COMPUTED 

10 

6.00 PROPULSION-MAIN 

COHPUTED 

16 

10.00 ELECTRICAL 

COMPUTED 

18 

12.00 AERO SURF ACTUATORS 

COMPUTED 

19 

13. XX AGGREGATED AVIONICS 

COHPUTED 

25 

14.10 ENVIRONMENTAL CONTROL 

COMPUTED 

26 

14.20 ECS-LIFE SUPPORT 

COMPUTED 

29 

16.20 REC & AUX-ESCAPE SYS 

COHPUTED 

32 

16.50 REC & AUX DOCKING SYS 

COMPUTED 


ENTER NUMBER OF SUBSYSTEM TO BE CHANGED - 0 IF NONE? 
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4.2 Modes of Operation 


4.2.1 The model operates in one of three modes: PRECONCEPTUAL, WEIGHT 
DRIVEN, & WEIGHT/VARIABLE DRIVEN. In mode 1, PRECONCEPTUAL, the user must 
specify the 6 driver variables and the 19 system parameters (see para 4.1.1). The driver 
variables are used to estimate subsystem weights and secondary variable values from the multiple 
regression models derived for this purpose. When operating in Mode 1, the user may display 
but not update the weight and secondary variable menus. However, changes to the primary 
variables will result in both weights and secondary variables being recomputed. The user has 
the option of having weights computed by the regression (aircraft based) equations or by one of 
the weight distributions available for small, large or shuttle vehicles. The user must specify the 
average crew size for scheduled maintenance activity. However, the model will compute crew 
sizes for unscheduled maintenance based upon the regression equations. 

4.2.2 In Mode 2, WEIGHT DRIVEN, the user must input/change subsystem weights 
directly. Secondary variables may be recomputed from these weights, however, the secondary 
menu can be displayed but not updated. As subsystem weights are updated, the total vehicle dry 
weight is recomputed regardless of its initial value on the primary system parameter menu. The 
subsystem weight menu is shown below: 

Figure 11 

SUBSYSTEM WEIGHTS WEIGHT FACTOR IS 1 


NBR 

WBS 

WEIGHT 

1 

1.00 WING GROUP 

1000 

2 

2.00 TAIL GROUP 

900 

3 

3.00 BODY GROUP 

6000 

7 

4.20 IEP-TCS 

1430 

9 

5.00 LANDING GEAR 

700 

10 

6.00 PROPULSION-MAIN 

3000 

16 

10.00 ELECTRICAL 

800 

18 

12.00 AERO SURF ACTUATORS 

500 

19 

13. XX AGGREGATED AVIONICS 

3000 

25 

14.10 ENVIRONMENTAL CONTROL 

900 

26 

14.20 ECS-LIFE SUPPORT 

700 

29 

16.20 REC & AUX-ESCAPE SYS 

500 

32 

16.50 REC & AUX DOCKING SYS 

1100 


TOTAL WEIGHT 

20530 


ENTER NUMBER OF SUBSYSTEM TO BE CHANGED - 0 IF NONE? 


4.2.3 Mode 3, WEIGHT/VARIABLE DRIVEN, allows the user to specify and change 
both subsystem weights and the 13 secondary variables. Since these secondary variables are used 
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in the MTBM and MHMA equations, this mode should result in the most accurate assessments. 
However, the vehicle must be sufficiently defined to enable the user to assign values to these 
variables. Default values are computed from the regression equations. These are the same 
values which would be used in Modes 1 and 2. The user may run the model in Mode 3, and by 
not changing the weight or secondary variable values, generate the same result as Mode 1 . 

Figure 12 

Secondary Variable Henu 


SECONDARY INDEP VARIABLES 


nbr variable 


CURRENT VALUE 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 
13 


FUSELAGE AREA 

875.9366 

FUSELAGE VOLUME 

17567.82 

WETTED AREA 

14077.51 

NBR WHEELS 

3 

NBR ACTUATORS 

17 

NBR CONTR SURFACES 

6 

KVA MAX 

57.53096 

NBR HYDR SUBSYS 

8 

NBR FUEL TANKS (INTERNAL) 

5 

TOT NBR AVIONICS SUBSYS 

21 

NBR DIFF AVIONICS SUBSYS 

21 

BTU COOLING 

125.4101 

NBR OXIDIZER TANKS 

5 


ENTER NBR OF VARIABLE TO BE CHANGED - 0 IF NONE? 


4.3. Computational Factors 


By selecting Computational Factors from the Input Menu, the following menu appears: 


Figure 13 

Coiputational Factors Menu 


NBR SELECTION 

1 TECHNOLOGY GROWTH FACTOR 

2 CRITICAL FAILURE RATE 

3 SUBSYSTEM REMOVAL RATES 

4 MTBM/MTTR CALIBRATION 

5 CREW SIZES/CREWS ASSIGNED 

6 PERCENT OFF-EQUIP 

7 FRACTION INHERENT FAILURES 

return exit to input lenu 
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4.3.1 Technology Factor 


The default technology factors used by the model are those displayed on the 
technology factors screen following initialization of the model. 


Figure 14 

Technology Factor Display Menu 
NBR SUBSYSTEM TECH GRWTH 



FACTOR 

1 

1.00 WING GROUP 

.082 

2 

2.00 TAIL GROUP 

.082 

3 

3.00 BODY GROUP 

.082 

7 

4.20 IEP-TCS 

.082 

9 

5.00 LANDING GEAR 

.033 

10 

6.00 PROPULSION-MAIN 

.011 

16 

10.00 ELECTRICAL 

0 

18 

12.00 AERO SURF ACTUATORS 

.056 

19 

13. XX AGGREGATED AVIONICS 

.22 

25 

14.10 ENVIRONMENTAL CONTROL 

.0062 

26 

14.20 ECS-LIFE SUPPORT 

.0062 

29 

16.20 REC & AUX-ESCAPE SYS 

.083 

32 

16.50 REC & AUX DOCKING SYS 

.083 


ENTER NUMBER OF SUBSYSTEM TO BE CHANGED - 0 IF NONE? 


4.3.2 Subsystem Calibration 

To provide sufficient flexibility to transition from the aircraft system to the space vehicle 
system, a calibration factor is included. This factor is used in modifying the aircraft computed 
MTBM AND MH/MA where CALIBRATED MTBM = CAL FACTOR x AIRCRAFT MTBM 
and CALIBRATED MHMA = CAL FACTOR x MHMA. The default value is one. With these 
two factors, the R&M parameters may be calibrated by subsystem based upon non-aircraft data 
in order to account for those differences between aircraft and space vehicles which are not 
accounted for by the variables in the aircraft generated equations. These factors may also be 
used for sensitivity analysis. There are only applied to "AIRCRAFT" based MTBM’s and 
MH/MA’s. 
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Figure 15 


SUBSYSTEM MTBH CALIBRATION FACTOR 
CAL MTBM = CAL FAC x coaputed HTBM 


NBR SUBSYSTEM CAL FACTOR 

1 1.00 WING GROUP 1 

2 2.00 TAIL GROUP 1 

3 3.00 BODY GROUP 1 

7 4.20 IEP-TCS 1 

9 5.00 LANDING GEAR 1 

10 6.00 PROPULSION-MAIN 1 

16 10.00 ELECTRICAL 1 

18 12.00 AERO SURF ACTUATORS 1 

19 13. XX AGGREGATED AVIONICS 1 

25 14.10 ENVIRONMENTAL CONTROL 1 

26 14.20 ECS-LIFE SUPPORT 1 

29 16.20 REC & AUX-ESCAPE SYS 1 

32 16.50 REC & AUX DOCKING SYS 1 


ENTER NUMBER OF SUBSYSTEM TO BE CHANGED - 0 IF NONE? 


SUBSYSTEM HH/MA CALIBRATION FACTOR 
CAL HH/HA = CAL FAC x coiputed MH/HA 


NBR SUBSYSTEM CAL FACTOR 

1 1.00 WING GROUP 1 

2 2.00 TAIL GROUP 1 

3 3.00 BODY GROUP 1 

7 4.20 IEP-TCS 1 

9 5.00 LANDING GEAR 1 

10 6.00 PROPULSION-MAIN 1 

16 10.00 ELECTRICAL 1 

18 12.00 AERO SURF ACTUATORS 1 

19 13. XX AGGREGATED AVIONICS 1 

25 14.10 ENVIRONMENTAL CONTROL 1 

26 14.20 ECS-LIFE SUPPORT 1 

29 16.20 REC & AUX-ESCAPE SYS 1 

32 16.50 REC & AUX DOCKING SYS 1 


ENTER NUMBER OF SUBSYSTEM TO BE CHANGED - 0 IF NONE? 


36 



4.3.3 Critical Failure Rates 


Critical failure rates (abort rates) are used to modify the MTBM in order to determine 
reliabilities based only on critical failures. Critical failures may include both prelaunch (PAD) 
and air maintenance actions or just air (launch and on-orbit) failures. 


Figure 16 

Critical Failure Rate Screen 


NBR 

SUBSYSTEM 

CRITICAL 
FAIL RATE 

1 

1.00 WING GROUP 

1.308286E-02 

2 

2.00 TAIL GROUP 

1.308286E-02 

3 

3.00 BODY GROUP 

1.330428E-02 

7 

4.20 IEP-TCS 

.001 

9 

5.00 LANDING GEAR 

1.010141E-04 

10 

6.00 PROPULSION-MAIN 

.010124 

16 

10.00 ELECTRICAL 

8.578588E-02 

18 

12.00 AERO SURF ACTUATORS 

2.376491E-03 

19 

13. XX AGGREGATED AVIONICS 

2.283728E-02 

25 

14.10 ENVIRONMENTAL CONTROL 

3.428872E-02 

26 

14.20 ECS-LIFE SUPPORT 

3.428872E-02 

29 

16.20 REC & AUX-ESCAPE SYS 

.001 

32 

16.50 REC & AUX DOCKING SYS 

.001 


ENTER NUMBER OF SUBSYSTEM TO BE CHAMGED - 0 IF HONE? 


37 



4.3.4 Removal Rates 


Removal rates are used to convert from mean time between maintenance actions to mean 
time between removals. Removals are assumed to generate a demand for a spare component. 
The rate specified here will affect the calculation of the number of spare components needed. 


Figure 17 

REMOVAL RATE - probability of a reioval per laintenance action 


NBR 

SUBSYSTEM 

REMOVAL 

1 

1.00 WING GROUP 

.1896 

2 

2.00 TAIL GROUP 

.1896 

3 

3.00 BODY GROUP 

.233 

7 

4.20 IEP-TCS 

.481 

9 

5.00 LANDING GEAR 

.22 

10 

6.00 PROPULSION-MAIN 

.5424 

16 

10.00 ELECTRICAL 

.473 

18 

12.00 AERO SURF ACTUATORS 

.252 

19 

13. XX AGGREGATED AVIONICS 

.42 

25 

14.10 ENVIRONMENTAL CONTROL 

.489 

26 

14.20 ECS-LIFE SUPPORT 

.506 

29 

16.20 REC & AUX-ESCAPE SYS 

.327 

32 

16.50 REC & AUX DOCKING SYS 

.219 

ENTER NUMBER OF SUBSYSTEM TO BE CHANGED 

- 0 IF NONE? 
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4.3.5 Fraction Off- Vehicle 


This is the fraction of total maintenance manhours spent performing maintenance on 
components removed from the vehicle. Therefore, these hours do not enter into any of the 
vehicle tumtime calculations. The shuttle "MTTR" input value is assumed to be all on- vehicle 
manhours. This fraction is then used to establish an off-vehicle manhour requirement. 


Figure 18 

FRACTION OFF EQUIP - fraction of total laintenance lanhours 
performed off the vehicle - does not iipact vehicle turntiie 


NBR 

SUBSYSTEM 

FRACTION 

1 

1.00 WING GROUP 

.0835 

2 

2.00 TAIL GROUP 

.0835 

3 

3.00 BODY GROUP 

.08575 

7 

4.20 IEP-TCS 

.2 

9 

5.00 LANDING GEAR 

.134 

10 

6.00 PROPULSION-MAIN 

.725 

16 

10.00 ELECTRICAL 

.042 

18 

12.00 AERO SURF ACTUATORS 

.2211 

19 

13. XX AGGREGATED AVIONICS 

.532 

25 

14.10 ENVIRONMENTAL CONTROL 

.0932 

26 

14.20 ECS-LIFE SUPPORT 

.02 

29 

16.20 REC & AUX-ESCAPE SYS 

.2356 

32 

16.50 REC & AUX DOCKING SYS 

.2 


ENTER NUMBER OF SUBSYSTEM TO BE CHANGED - 0 IF NONE? 


4.3.6 Crew Size 

Both average crew size and number of crews assigned are displayed and may be updated 
by the user. The crew size is used to convert the manhour per maintenance action into a mean 
time to repair (MTTR). The number of crews assigned is used only in the vehicle tumtime 
calculations and represents the number of crews available by subsystem to perform work 
simultaneously (in parallel). It may also be used (optionally) in the costing model (LCC) as a 
basis for determining maintenance manpower requirements. 
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Figure 19 

CREW SIZE/NBR CREWS 


NBR 

SUBSYSTEM CREW 

SIZE 

NBR CREWS 
ASGN 

1 

1.00 WING GROUP 

2.137765 

1 

2 

2.00 TAIL GROUP 

2.137765 

1 

3 

3.00 BODY GROUP 

2.2 

3 

7 

4.20 IEP-TCS 

4.5 

5 

9 

5.00 LANDING GEAR 

2.137765 

1 

10 

6.00 PROPULSION-MAIN 

2.43 

1 

16 

10.00 ELECTRICAL 

2.316721 

1 

18 

12.00 AERO SURF ACTUATORS 

2.137765 

1 

19 

13. XX AGGREGATED AVIONICS 

2.2 

2 

25 

14.10 ENVIRONMENTAL CONTROL 

2.316721 

1 

26 

14.20 ECS-LIFE SUPPORT 

2.316721 

1 

29 

16.20 REC & AUX-ESCAPE SYS 

1.931436 

1 

32 

16.50 REC & AUX DOCKING SYS 

4.5 

1 


ENTER NUMBER OF SUBSYSTEM TO BE CHANGED - 0 IF NONE? 


4.3.7 Fraction Inherent Failures 


This is the fraction of the total maintenance actions which are inherent component 
failures. Other categories of maintenance actions include no trouble found actions and externally 
induced failures. This fraction is used to split the MTBM into an inherent (mission) MTBM and 
an induced (ground) MTBM. 


Figure 20 

Fraction Inherent Failure Screen 


NBR SUBSYSTEM 


FRACTION INHERENT 
FAILURES 


1 1.00 WING GROUP .35 

2 2.00 TAIL GROUP .35 

3 3.00 BODY GROUP .36 

7 4.20 IEP-TCS .5 

9 5.00 LANDING GEAR .52 

10 6.00 PROPULSION-MAIN .46 

16 10.00 ELECTRICAL .57 

18 12.00 AERO SURF ACTUATORS .47 

19 13. XX AGGREGATED AVIONICS .49 

25 14.10 ENVIRONMENTAL CONTROL .41 

26 14.20 ECS-LIFE SUPPORT .46 

29 16.20 REC & AUX-ESCAPE SYS .43 

32 16.50 REC & AUX DOCKING SYS .5 


ENTER NUMBER OF SUBSYSTEM TO BE CHANGED - 0 IF NONE? 
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Chapter 5 

Output Displays & Reports 


5.1 Screen Displays (Output) 

By selecting the Screen Display (Output) Menu from the main menu, the following 
menu is obtained: 


Figure 21 

Screen Display (Output) Menu 


nbr selection 

1 RELIABILITY REPORT 

2 MAINTAINABILITY REPORT 

3 HANPOWER REQUIREMENTS 

4 SPARES REQUIREMENTS 

5 VEHICLE TURNTIME REPORT 

6 SYSTEM PERFORMANCE SUMMARY 

7 AGGREGATED SYSTEM REPORT 

return exit to nain aenu 


5.1.1 Reliability Report 10 

This report shows the MTBM, computed from either the parametric equations or specified (i.e. 
SHUTTLE) by the user after applying the technology and reliability growth adjustment. This 
MTBM is then split into a ground processing MTBM and a mission MTBM using the fraction 
inherent failures. The mission MTBM includes the environmental adjustment (application of the 
launch factor and the on-orbit decreasing failure rate) if appropriate. The second page shows 
the critical failure MTBM which is used to compute the various reliabilities. Displayed is a 
nonredun dan t reliability followed by redundant based reliabilities at each of the mission epochs: 
launch, powered flight, orbit, reentry, and mission completion. The nonredundant reliability will 
match any user specified subsystem reliabilities (to at least 4 decimal places). In each case, 
subsystem values are rolled-up to display a vehicle value. 


I0 The specific meaning of the various column headings in these and the other output reports 
may be found alphabetically in the glossary (Appendix A). Each output display requires two 
screens in order to accommodate all 33 subsystems. 
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Figure 22 


RELIABILITY REPORT - at mission nbr. 2 - page 1 

VEHICLE IS Example DATE: 12-31-1994 TIME: 20:54:04 

all HTBH's are for a single subsystem, e.g. one engine 

WBS TECH/GROWTH HTBM GRND PROC HTBH MISSION HTBM 

(all MA's) (External MA's) (inherent MA's) 


LOO WING GROUP 

31.79182 

48.9105 

348.9151 

2.00 TAIL GROUP 

35.32425 

54.34501 

390.2049 

3.00 BODY GROOP 

3.986436 

6.228806 

26.61858 

4.20 IEP-TCS 

8.957087 

17.91417 

17.91417 

5.00 LANDING GEAR MSN'S/FAILURE 

29.90977 

62.31203 

57.51888 

6.00 PROPULSION-MAIN 

39.34385 

72.85897 

65.25906 

10.00 ELECTRICAL 

7.2832 

16.93767 

32.98675 

12.00 AERO SURF ACTUATORS 

141.0082 

266.0532 

922.6389 

13. XX AGGREGATED AVIONICS 

12.7012 

24.90431 

84.7984 

14.10 ENVIRONMENTAL CONTROL 

113.92 

193.0847 

1116.807 

14.20 ECS-LIFE SUPPORT 

20.63255 

38.20843 

161.3881 

16.20 REC & AUX-ESCAPE SYS 

47.61164 

83.52919 

430.3201 

16.50 REC & AUX DOCKING SYS 

538.9167 

1077.833 

1077.833 

VEHICLE 

1.274958 

2.313801 

5.403583 


RELIABILITY REPORT - at mission nbr. 2 - page 2 


critical MTBM's are for a single subsystem, e.g. one engine 


WBS 

CRITICAL FAILURE 

CRITICAL SUBSYS NON- 


RATE-grnd+air 

MTBH REDUNDANT MSN 1 

1.00 WING GROUP 

1.308286E-02 

26669.64 

.9992543 

2.00 TAIL GROUP 

1.308286E-02 

29825.66 

.9993332 

3.00 BODY GROUP 

1.330428E-02 

2000.753 

.9901056 

4.20 IEP-TCS 

.001 

17914.17 

.99889 

5.00 LANDING GEAR 

1.010141E-04 

569414.1 

.9999983 

6.00 PROPULSION-MAIN 

.010124 

6445.978 

.9978831 

10.00 ELECTRICAL 

8.578588E-02 

384.5242 

.9495768 

12.00 AERO SURF ACTUATORS 

2.376491E-03 

388235.7 

.9999256 

13. XX AGGREGATED AVIONICS 

2.283728E-02 

3713.157 

.9946564 

14.10 ENVIRONMENTAL CONTROL 

3.428872E-02 

32570.68 

.9993894 

14.20 ECS-LIFE SUPPORT 

3.428872E-02 

4706.741 

.995782 

16.20 REC & AUX-ESCAPE SYS 

.001 

430320.1 

.9999537 

16.50 REC & AUX DOCKING SYS 

.001 

1077833 

.9999815 

VEHICLE 


256.248 

.9262028 
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RELIABILITY REPORT - at mission nbr. 2 - page 3 


reliabilities based upon redundancy 


WBS 

LAUNCH 

TIME 

END OF 
POWER FLT 

ORBIT 

INSERTION 

1.00 WING GROUP 

.9996251 

.9995202 

.9994879 

2.00 TAIL GROUP 

.9996648 

.9995709 

.9995421 

3.00 BODY GROUP 

.9950144 

.9936228 

.9931958 

4.20 IEP-TCS 

.9994419 

.9992858 

.9992378 

5.00 LANDING GEAR 

1 

1 

1 

6.00 PROPULSION-HAIN 

.9953568 

.9940605 

.9936627 

10.00 ELECTRICAL 

.999341 

.9989281 

.9987819 

12.00 AERO SURF ACTUATORS 

.9999485 

.9999413 

.9999391 

13. XX AGGREGATED AVIONICS 

.9999928 

.9999881 

.9999865 

14.10 ENVIRONMENTAL CONTROL 

.9999999 

.9999998 

.9999998 

14.20 ECS-LIFE SUPPORT 

.9978777 

.9972842 

.997102 

16.20 REC & AUX-ESCAPE SYS 

.9999768 

.9999703 

.9999682 

16.50 REC & AUX DOCKING SYS 

.9999907 

.9999881 

.9999873 


VEHICLE .9862989 

.9822762 

.9810246 

RELIABILITY REPORT - at mission nbr. 2 - 

page 4 

reliabilities based upon redundancy 

WBS 

REENTRY 

COMPLETION 

MISSION 

1.00 WING GROUP 

.9992918 

.9992543 

2.00 TAIL GROUP 

.9993667 

.9993332 

3.00 BODY GROUP 

.9906006 

.9901056 

4.20 IEP-TCS 

.9989458 

.99889 

5.00 LANDING GEAR 

1 

.9999983 

6.00 PROPULSION-MAIN 

.9936627 

.9936627 

10.00 ELECTRICAL 

.9977008 

.9974575 

12.00 AERO SURF ACTUATORS 

.9999281 

.9999256 

13. XX AGGREGATED AVIONICS 

.9999743 

.9999714 

14.10 ENVIRONMENTAL CONTROL 

.9999996 

.9999996 

14.20 ECS-LIFE SUPPORT 

.9959936 

.995782 

16.20 REC & AUX-ESCAPE SYS 

.9999561 

.9999537 

16.50 REC & AUX DOCKING SYS 

.9999825 

.9999815 

VEHICLE 

.975628 

.9745619 
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5.1.2 Maintainability Report 


The Maintainability Report provides a maintenance manhour summary by subsystem to 
support a typical mission. The average (mean) manhours per maintenance action is obtained 
parametrically or derived from a specified MTTR (i.e. SHUTTLE) and average crew size. 
Maintenance actions per mission is obtained by dividing subsystem operating hours (including 
redundant subsystems) by the MTBM. Maintenance actions are computed separately for mission 
(inherent failures) and ground processing (induced and no problem found). Scheduled manhours 
is determined as a specified percent of the total unscheduled manhours. Manhours are also 
displayed as on-vehicle and off-vehicle manhours. 


Figure 23 

MAINTAINABILITY REPORT - at lission nbr. 2 - page 1 
VEHICLE IS Exaiple DATE: 12-31-1994 TIME: 20:54:05 


WBS 

HAINT ACTIONS/MSN 

AVG MANHR/HA 

AVG MANHRS/HSN 

1.00 WING GROUP 

4.324116 

9.050124 

39.13379 

2.00 TAIL GROUP 

3.890337 

9.050124 

35.20803 

3.00 BODY GROUP 

35.18943 

14.63651 

515.0506 

4.20 IEP-TCS 

15.74173 

84.375 

1328.208 

5.00 LANDING GEAR 

3.343386E-02 

8.062291 

.2695535 

6.00 PROPULSION-MAIN 

8.403646 

21.1 

177.3169 

10.00 ELECTRICAL 

26.10184 

4.1 

107.0175 

12.00 AERO SURF ACTUATORS 

.8514433 

2.1 

1.788031 

13. XX AGGREGATED AVIONICS 

17.02847 

12.78584 

217.7233 

14.10 ENVIRONMENTAL CONTROL 

2.145053 

6.83832 

14.66856 

14.20 ECS-LIFE SUPPORT 

5.742539 

5.444892 

31.26751 

16.20 REC & AUX-ESCAPE SYS 

2.584929 

4.559166 

11.78512 

16.50 REC & AUX DOCKING SYS 

.261636 

68.175 

17.83703 

TOTALS 

126.162 

20.03333 WT-AVG 

2527.445 
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MAINTAINABILITY REPORT - at mission nbr. 2 - page 2 


MBS 

ON-VEH MH 

OFF-VEH HH FRACTION ON-VEH 

1.00 WING GROUP 

35.86612 

3.267671 

.9165 

2.00 TAIL GROUP 

32.26817 

2.939871 

.9165 

3.00 BODY GROUP 

470.885 

44.16559 

.91425 

4.20 IEP-TCS 

1062.567 

265.6416 

.8 

5.00 LANDING GEAR 

.2334334 

3.612018E-02 

.866 

6.00 PROPULSION-MAIN 

50.71828 

133.7118 

.275 

10.00 ELECTRICAL 

112.2867 

4.9228 

.958 

12.00 AERO SURF ACTUATORS 

1.392702 

.3953288 

.7789026 

13. XX AGGREGATED AVIONICS 

107.6808 

122.4064 

.468 

14.10 ENVIRONMENTAL CONTROL 

13.75675 

1.413905 

.9068 

14.20 ECS-LIFE SUPPORT 

30.64215 

.6253501 

.98 

16.20 REC & AOX-ESCAPE SYS 

9.009071 

2.776047 

.7644447 

16.50 REC & AUX DOCKING SYS 

14.26963 

3.567407 

.8 


UNSCHEDULED 

1941.575 

585.8699 

.7957228 (AVG) 

SCHEDULED 

1427.058 

29.12363 


TOTAL 

3368.633 

614.9936 



MAINTAINABILITY REPORT - at aission nbr. 2 - page 3 


Note: Ground processing MA's consist of induced and no defect HA's. 
Mission HA's are inherent eguipnent failures 

WBS 

GRND PROC HA 

MSN MA 

TOTAL MA 

1.00 WING GROUP 

4.089102 

.2350142 

4.324116 

2.00 TAIL GROUP 

3.680191 

.210146 

3.890337 

3.00 BODY GROUP 

32.10888 

3.080555 

35.18943 

4.20 IEP-TCS 

11.16434 

4.577381 

15.74173 

5.00 LANDING GEAR 

1.604827E-02 

.0173856 

3.343386E-02 

6.00 PROPULSION-MAIN 

8.235087 

.5056769 

8.740765 

10.00 ELECTRICAL 

23.61599 

4.971694 

28.58769 

12.00 AERO SURF ACTUATORS 

.7517293 

9.971399E-02 

.8514433 

13. XX AGGREGATED AVIONICS 

16.06148 

1.933999 

17.99547 

14.10 ENVIRONMENTAL CONTROL 

2.07163 

.1468472 

2.218477 

14.20 ECS-LIFE SUPPORT 

5.234447 

.508092 

5.742539 

16.20 REC & AUX-ESCAPE SYS 

2.394373 

.1905558 

2.584929 

16.50 REC 6 AUX DOCKING SYS 

.1855574 

7.607855E-02 

.261636 

TOTAL 

109.6089 

16.55314 

126.162 
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5.1.3 Manpower Report 

Manpower requirements by subsystem are computed by multiplying the maintenance 
manhours per mission by the number of missions per month and then dividing by the number of 
hours per month a technician is available to perform direct maintenance. This number is rounded 
up to a whole integer. Since the manhours of work may not provide sufficient manpower to 
meet an average crew size requirement, the average crew size is also displayed. Generally, 
required manpower would be the larger of these two values. Scheduled manpower is found by 
dividing the total scheduled manhours by the available hours per month per technician. Required 
crews are computed by dividing the manpower requirement by the average crew size and 
rounding up. Assigned crews are specified by the user and are used in establishing turntime or 
fleet size objectives. Total personnel assigned is computed by multiplying and summing 
subsystem average crew sizes by the number of assigned crews and adding scheduled 
maintenance manpower. This number may be used in the costing model (LCC) for establishing 
maintenance manpower costs. 


Figure 24 

MANPOWER REPORT - at aission nbr. 2 

VEHICLE IS Exaaple DATE: 12-31-1994 TIME: 20:54:05 

AVAIL HRS/H0= 144 INDIRECT W0RK= 20 \ 

■anpvr is coaputed froa aanhrs/ao divided by avail direct hrs per ao per person 
rqd crews is coaputed froa aanpwr divided by avg crew 

RQD ASGD 

WBS MANHRS/MSN MANHRS/MO MANPNR AVG CREW CREWS CREWS 


1.00 WING GROUP 

39.13379 

78.26757 

1 

2.137765 

1 

1 

2.00 TAIL GROUP 

35.20803 

70.41607 

1 

2.137765 

1 

1 

3.00 BODY GROUP 

515.0506 

1030.101 

9 

2.2 

5 

3 

4.20 IEP-TCS 

1328.208 

2656.416 

24 

4.5 

6 

5 

5.00 LANDING GEAR 

.2695535 

.5391071 

1 

2.137765 

1 

1 

6.00 PROPULSION-MAIN 

184.4301 

368.8602 

4 

2.43 

2 

1 

10.00 ELECTRICAL 

117.2095 

234.419 

3 

2.316721 

2 

1 

12.00 AERO SURF ACTUATORS 

1.788031 

3.576062 

1 

2.137765 

1 

1 

13. XX AGGREGATED AVIONICS 

230.0872 

460.1744 

4 

2.2 

2 

2 

14.10 ENVIRONMENTAL CONTROL 

15.17066 

30.34131 

1 

2.316721 

1 

1 

14.20 ECS-LIFE SUPPORT 

31.2675 

62.53501 

1 

2.316721 

1 

1 

16.20 REC & AUX-ESCAPE SYS 

11.78512 

23.57024 

1 

1.931436 

1 

1 

16.50 REC & AUX DOCKING SYS 

17.83703 

35.67407 

1 

4.5 

1 

1 

UNSCHEDULED 

2527.445 

5054.891 

52 

34 



SCHEDULED 

1456.182 

2912.363 

26 

4 



TOTAL 

3983.627 

7967.253 

78 

38 




Tot personnel assigned - SUM (avg crew size x asgd crews) + schd aanpwr 83 
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5.1.4 Spares Report 

Initial Spares requirements are based upon the mean number of removals of components 
per mission within each subsystem. Assuming a Poisson demand distribution having this mean, 
spares levels are established to provide a specified fill rate (i.e. probability a spare is available 
on demand). Recurring spares requirements must be added to these in order to account for 
condemnations. The assumption is that all non-condemned removals (unserviceables) will be 
repaired prior to the next scheduled mission. An effective fill rate is displayed showing the 
achieved value which will always equal or exceed the stated fill rate goal. 


Figure 25 

SUBSYSTEM SPARES REPORT - at lission nbr. 2 
VEHICLE IS Exaiple DATE: 12-31-1994 TIME: 20:54:05 

NOTE: failures are assuied to be Poisson 



REHOVAL 

HEAN DEMAND 

SPARES 

EFFECTIVE 

MBS 

RATE/MA 

PER MISSION 

RQMT 

FILL RATE 

1.00 WING GROUP 

.1896146 

.8199155 

3 

.9901355 

2.00 TAIL GROUP 

.1896146 

.7376647 

3 

.99311 

3.00 BODY GROUP 

.2330179 

8.199767 

15 

.9898019 

4.20 IEP-TCS 

.481 

7.57177 

14 

.9889027 

5.00 LANDING GEAR 

.22 

7.35545E-03 

0 

.9926715 

6.00 PROPULSION-MAIN 

.5424479 

4.55854 

9 

.9815111 

10.00 ELECTRICAL 

.4729872 

12.34584 

20 

.9846472 

12.00 AERO SURF ACTUATORS 

.25239 

.2148958 

2 

.998591 

13. XX AGGREGATED AVIONICS 

.4195914 

7.145002 

13 

.9850001 

14.10 ENVIRONMENTAL CONTROL 

.489287 

1.049547 

4 

.9955227 

14.20 ECS-LIFE SUPPORT 

.5057694 

2.9044 

7 

.9900324 

16.20 REC & AUX-ESCAPE SYS 

.3272568 

.8459354 

3 

.9890459 

16.50 REC & AUX DOCKING SYS 

.219 

5.729828E-02 

1 

.9984198 


TOTALS .3493828 (AVG) 46.45792 94 
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5.1.5 Vehicle Turn time Report 

In order to determine vehicle turn times, assumptions must be made concerning the order 
in which maintenance is to be performed. For each subsystem, an average repair time per 
mission is computed by multiplying the MTTR by the number of maintenance actions per mission 
and then dividing by the number of crews available (assigned) to work simultaneously. The 
number of crews assigned may be adjusted by the user (see paragraph 4.3.6). A minimum turn 
time is then found by assuming all subsystems may be repaired in parallel. A maximum turn 
time assumes each subsystem must be repaired sequentially (serially). Scheduled maintenance 
time, integration time, pad time, and mission time are included in total vehicle turn time. Times 
are converted from hours to days by dividing by 8, 16, or 24 hours to reflect one, two, or three 
shift maintenance. See paragraph 2.8 for the formulae used in computing total vehicle 
turnaround times, average missions per year per vehicle, and computed fleet size. 


Figure 26 

VEHICLE TURK TIME REPORT - at iission nbr. 2 - page 1 


VEHICLE IS Exaiple 

DATE: 

12-31-1994 


TIME: 20:54:05 

ON-VEH TOT 

NBR CREWS AVG SUBSYS REPAIR 

WBS MTTR (HRS) MAIM ACT ASSIGNED ' 

TIME PER MSN (tars) 

1.00 WING GROUP 

3.879957 

4.324116 

1 

16.77739 

2.00 TAIL GROUP 

3.879957 

3.890337 

1 

15.09434 

3.00 BODY GROUP 

6.082469 

35.18943 

3 

71.34621 

4.20 IEP-TCS 

15 

15.74173 

5 

47.22518 

5.00 LANDING GEAR 

3.266001 

3.343386E— 02 

1 

.109195 

6.00 PROPULSION-MAIN 

2.38786 

8.403646 

1 

20.06673 

10.00 ELECTRICAL 

1.695414 

26.10184 

1 

44.25341 

12.00 AERO SURF ACTUATORS 

.7651427 

.8514433 

1 

.6514756 

13. XX AGGREGATED AVIONICS 

2.719896 

17.02847 

2 

23.15784 

14.10 ENVIRONMENTAL CONTROL 2.676623 

2.145053 

1 

5.7415 

14.20 ECS-LIFE SUPPORT 

2.303253 

5.742539 

1 

13.22652 

16.20 REC & AUX-ESCAPE SYS 

1.804476 

2.584929 

1 

4.664442 

16.50 REC & AUX DOCKING SYS 12.12 

.261636 

1 

3.171028 


265.4862 (TOT) 


AVG CREW SIZE 2.558666 
AVG TASK TIME 4.506235 
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VEHICLE TORN TIME REPORT - at aission nbr. 2 - page 2 


CATEGORY 


MIN TURN TIMES 


SCHD MAINT MSN TASK TIME 
UNSCHEDULED MAINTENANCE TIME 
INTEGRATION TIME 
LAUNCH PAD TIME 

MISSION TIME -INC GRND PWR TIME 
TOT VEHICLE TURNAROUND TIME 


356.7645 HRS 
71.34621 HRS 
1 DAYS 

1 DAYS 
82 HRS 

486.7645 TOT HR 


ONE SHIFT/DAY MAINTENANCE 

TOT VEHICLE TURNAROUND TIME 
AVG MISSIONS/YR/VEHICLE 
COMPUTED FLEET SIZE 


50.01223 DAYS 

5.038768 

5 


TWO SHIFTS/DAY MAINTENANCE 


TOT VEHICLE TURNAROUND TIHE 27.71445 DAYS 

AVG MISSIONS/YR/VEHICLE 9.092731 

COMPUTED FLEET SIZE 3 

THREE SHIFTS/DAY MAINTENANCE 

TOT VEHICLE TURNAROUND TIHE 20.28185 DAYS 

AVG MISSIONS/YR/VEHICLE 12.4249 

COMPUTED FLEET SIZE 2 


NOTE: assuies parallel unsch/sched laint tasks, 8 hr shifts, and 21 work days a lonth 
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VEHICLE TURN TIME REPORT - at mission nbr. 2 - page 3 


CATEGORY 

SCHD MAINT MSN TASK TIHE 
UNSCHED HAINT TIHE 
INTEGRATION TIHE 
LAUNCH PAD TIHE 
HISSION TIHE -INC GRND TIHE 
TOT VEHICLE TURNAROUND TIHE 


ONE SHIFT/DAY HAINTENANCE 

TOT VEHICLE TURNAROUND TIHE 
AVG HISSIONS / YR /VEHICLE 
COHPUTED FLEET SIZE 


TOO SHIFTS/DAY HAINTENANCE 

TOT VEHICLE TURNAROUND TIHE 
AVG HISSIONS /YR /VEHICLE 
COHPUTED FLEET SIZE 


THREE SHIFTS/DAY HAINTENANCE 

TOT VEHICLE TURNAROUND TIHE 
AVG HISSIONS /YR /VEHICLE 
COHPUTED FLEET SIZE 

NOTE: assumes sequential tasks, 8 hr shifts, 


HAX TURN TIHES 

356.7645 HRS 
265.4852 HRS 
1 DAYS 
1 DAYS 
82 HRS 

752.2497 TOT HR 


83.19788 DAYS 
3.028924 
8 


44.30727 DAYS 

5.687554 

5 


31.34374 DAYS 

8.039884 

3 

and 21 work days a month 
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5.1.6 System Performance Summary 


The System Performance Summary provides a concise report at the vehicle level only 
providing mission epoch reliabilities, total maintenance manhours, manpower and spares 
requirements, and a turntime comparison. 


VEHICLE IS Example 

CATEGORY 

VEHICLE 

VEHICLE 

CATEGORY 

VEHICLE 


VEHICLE 

UNSCHED 

SCHEDULED 

TOTALS 


SPARES-VEHICLE 


Figure 27 

SYSTEM PERFORMANCE SUMMARY - at mission nbr. 2 - page 1 


DATE: 0 1-0 1 -1995 
RELIABILITY REPORT 


LAUNCH 

TIME 

. 9862989 


END OF 
POWER FLT 


TIME: 02:10:54 


ORBIT 

INSERTION 


.9822762 .9810246 

REENTRY 
. 975628 

MAINTAINABILITY REPORT 
MAINT ACTIONS/MSN WT-AVG MANHR/MA 


MISSION 
COMPLETION 
. 9745619 


UNSCHED 

AVG MANHRS /MSN 


126.162 

ON-VEH MH 

1941 . 575 
1427.058 
3368 .633 


20.03333 

OFF-VEH MH 

585.8699 

29.12363 

614.9936 


2527.445 
FRACTION ON-VEH 

.7957228 (AVG) 


MANPOWER/SPARES REPORT 
94 


CATEGORY 


MANHR DRIVEN 
AGGREGATE 

MANHR DRIVEN 
BY SUBSYS 

CREW SZ 
BY SUBSYS 

TOT 

BY 

VEHICLE 

UNSCH 

MANPWR 

44 

52 

34 

58 

SCHED 

MANPWR 

26 

26 

4 

4 

TOTAL 


70 

78 

38 

62 


ONE SHIFT/DAY MAINTENANCE 

TOT VEHICLE TURNAROUND TIME 
AVG MI SS IONS/ YR /VEHICLE 
COMPUTED FLEET SIZE 

TWO SHIFTS/DAY MAINTENANCE 

TOT VEHICLE TURNAROUND TIME 
AVG MI SS IONS/ YR/ VEHICLE 
COMPUTED FLEET SIZE 

THREE SHIFTS/DAY MAINTENANCE 

TOT VEHICLE TURNAROUND TIME 
AVG MI SS IONS/ YR/ VEHICLE 
COMPUTED FLEET SIZE 


VEHICLE TURN TIMES 

MIN TURN TIME 

50.01223 DAYS 
5.038768 

5 


27.71445 DAYS 
9 . 092731 
3 


20.28185 DAYS 
12.4249 

2 


MAX TURN TIME 

83.19788 
3 .028923 
8 


44 .30727 
5 . 687554 
5 


31 . 34374 
8 .039884 

3 
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5.1.7 Aggregated System report 

The Aggregated System Report display the results of the subsystem to system roll-up. 
Specifically, the number of maintenance actions, mean time to repair, scheduled maintenance 
time, average crew size, and number of assigned crews is displayed. Maintenance times and 
average crew sizes are weighted averages of the subsystem values with the weights being the 
subsystem fraction of total maintenance actions. This display is similar to a printed report which 
may be generated to provide input into the maintenance simulation model (MSM). 

Figure 28 


Aggregated System Report 
VEHICLE IS Example 
SYSTEM 
Structural 

1.00 WING GROUP 

2.00 TAIL GROUP 

3.00 BODY GROUP 
Thermal/Tiles 

4.10 IEP-TILES 
4.20 IEP-TCS 

4.30 IEP-PVD 


- System Aggregation - page 1 

DATE: 01-01-1995 TIME: 02:11:49 

SYSTEM SYSTEM 


Fuel/Oxid Tanks 
3.10 TANKS-LOX 
3.20 TANKS-LH2 

Propulsion 


Auxiliary Systems 

16.30 REC& AUX- SEPARATION 
16.40 R EC & AUX -CROSS FEED 
16.50 REC & AUX DOCKING S' 
16.60 REC&AUX MANIPULATOR 


6.00 PROPULSION-MAIN 

7.00 PROPULSION-RCS 

8.00 PROPULSION-OMS 


Power /Electrical 
9.10 POWER- APU 
9.20 POWER-BATTERY 
9.30 POWER-FUEL CELL 
10.00 ELECTRICAL 


Mechanical Sys 

11.00 HYDRAULICS/PNEUMATICS 

12.00 AERO SURF ACTUATORS 

5.00 LANDING GEAR 


Avionics ECS/Life 

13. XX AGGREGATED AVIONICS 14.10 

13.20 AV-HEALTH MONITOR 14.20 

13.30 AVIONICS-COMM & TRACK 15.00 

13.40 AV-DISPLAYS & CONTR 16.10 

13.50 AVIONICS-INSTRUMENTS 16.20 

13.60 AVIONICS-DATA PROC 
ENTER RETURN . . . ? 


Support 

ENVIRONMENTAL CONTROL 
ECS-LIFE SUPPORT 
PERSONNEL PROVISIONS 
REC & AUX -PARACHUTES 
REC & AUX-ESCAPE SYS 


Aggregated System Report - page 2 

VEHICLE IS Example DATE: 01-01-1995 TIME: 02:13:07 


Aggregated 

Nbr of 

On-Veh MTTR 

On-Veh Sched 

Ave Crew 

System 

Maint Actions 

per MA ( hrs ) 

maint time(hrs) 

Size 

Structural 

43 . 40389 

5.66563 

224 . 3909 

2. 188222 

Thermal/Tiles 

15.74173 

15 

39.5688 

4.5 

Propulsion 

8 . 740764 

2.38786 

40.68705 

2.43 

Power /Electrical 

28 . 58769 

0 

139 . 5784 

2 .316721 

Mechanical Sys 

.8848771 

.736233 

4.68205 

2 . 137765 

Avionics 

17.99547 

2.719896 

92 . 52385 

2 . 2 

ECS/Life Support 

10.54594 

2.259541 

54.00785 

2.222283 

Auxiliary Systems 

. 261636 

12.12 

.6576549 

4.5 

Total 

126.162 

40.88916 

596 . 0966 

22 . 49499 

Average 

15 . 77025 

5.111145 

74 . 51208 

2.811874 


note: MTTR 9 s & sched maint times assume the Avg Crew Size and are based 

upon a weighted avg ( wts-f raction of total failures) of each subsystem. 
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VEHICLE IS Example 


Aggregated System Report - page 3 
DATE: 01-01-1995 


TIME: 02:13:12 


Aggregated Removal 

System Rate 

Structural 
Thermal /Tiles 
Propulsion 
Power /El ectr ical 
Mechanical Sys 
Avionics 

ECS/Life Support 
Auxiliary Systems 

Total 
Average 

note: MTTR ' s & sch€ 

upon a weighted avg 


Off-Veh MTTR Off-Veh Sched Nbr Crews 
in hours maint time(hrs) Assigned 


2248036 

. 5294231 

4 . 579406 

5 

481 

3.75 

. 8075265 

5 

5424479 

6 . 295268 

.8303479 

1 

4729872 

7 . 432919E-02 

2.84854 

1 

2511662 

.2280796 

9.55 5 20 5E-0 2 

2 

4195914 

3 . 091848 

1 .888242 

2 

4585467 

. 2197556 

1.102201 

3 

219 

3.03 

1 . 34 21 53E-0 2 

1 


17 . 2187 

12 . 16524 

20 

3836929 

2 . 152338 

1 . 520655 

2.5 

i maint times 

assume the Avg 

Crew Size and 

are based 

wts- fraction 

of total failures) of each 

subsystem . 


5.2 Report Generation 

Hard copy output of the reports outlined in Paragraph 5.1 may be obtained from the 
PRINT options displayed in the menu below (Figure 29). These reports will be directed to the 
parallel printer port (normally LPT1 :) and are generally compatible with either a dot matrix or 
ink jet printer (e.g. Epson LQ series or HP Deskjet 500 series). NBR’s 9 and 10 on the Report 
Menu will generate the output reports obtained from NBR’s 2-7. NBR 10 will also include the 
NBR 1 input data. NBR 1 1 generates a special report for use with the MSM simulation model 
The user, by selecting NBR 12, SEND REPORT TO A FILE, will create an ASCII file of the 
entire input and output reports with the exception of the summary and simulation input report 
This file will have the VEHICLE/FILE NAME with an .ASC extension. This File may then 
be imported into a wordprocessor and included as part of an overall report or sent over a LAN. 


Figure 29 
Report Menu 


NBR SELECTION 

1 PRINT INPUT DATA 

2 PRINT SUMMARY REPORT 

3 PRINT RELIABILITY REPORT 

4 PRINT MAINTAINABILITY REPORT 

5 PRINT MANPOWER REPORT 

6 PRINT SPARES REPORT 

7 PRINT TURNTIHE REPORT 

8 PRINT EXT TANK S/OR SRB REPORT 

9 PRINT TOTAL OUTPUT 

10 PRINT TOTAL INPUT /OUTPUT 

11 SIMULATION MODEL INPUT 

12 SEND REPORT TO A FILE 

return cancel request 
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Chapter 6 

Study Analysis and Procedures 


6. 1 General 

In using the R&M model as part of a space vehicle study, the analyst must obtain a 
minimum number of design specifications pertaining to the vehicle. Although the R&M model 
has default values for all input parameters, the analyst must replace, verify, or state as 
assumptions these default values when they are used. In most cases, the default values were 
obtained from analyses of large amounts of aircraft data or from shuttle data. When beginning 
a new study, all input menus should systematically be updated. Appendix B contains step-by-step 
guidelines for setting up the input data for each of the three modes: preconceptual, weight- 
driven, and weight/variable driven. 

This model may be used in conjunction with other existing operational capability and 
support models such as NASA’s (LRC) SLAM simulation model, the maintenance simulation 
model (MSM) discussed in Part III of this report, and the O&S costing model [13]. These 
models and their relationships among one another are discussed in Part I of this report. 

6.2 Input Procedures 

The following sequential set of tasks are provided as guidelines in completing a study 
using the R&M model. The order and nature of these tasks may change depending upon the 
study objectives and the availability of certain types of input data. 

6.2.1 Obtain available vehicle design and performance parameters. These would include 
both primary driver variables and, to the extent possible, the secondary driver variables. 
Subsystem weights should be determined if possible. System parameter values should be 
determined (default values may be used but the analyst must consider these as part of the study 
assumptions). 

6.2.2 Define the vehicle subsystems using the ADD/DELETE SUBSYSTEM screen. 
If one or more subsystems which are not part of the NASA WBS are to be included, rename a 
current subsystem and select shuttle from the SELECT SHUTTLE/ AIRCRAFT screen. Also 
select shuttle for those subsystems in which the analyst can specify a MTBM and a MTTR. 

6.2.3 Update primary system parameters and (mode 1) subsystem weights (or select an 
appropriate weight distribution if actual weights are unknown). Update secondary variables 
(mode 2) if known. If only some of the secondary variables are known, the model may be run 
in mode 0 (preconceptual) or mode 1 (weight-driven) to obtain parametric results for all the 
secondary variables. Then by switching to mode 2 (variable-dnven), the analysts may replace 
particular values. However, both primary variables and weight variables should be established 
first. 
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6.2.4 Review and update the computational factors screens. Assumptions by subsystem 
must be made concerning technology and reliability growth, removal rates, fraction of off-vehicle 
work, critical failure rates, crew sizes, and inherent failure rates. Initially, it may be sufficient 
to use the default values. Number of crews assigned can be updated later once the initial 
turntime output has been observed. The calibration screens will default to one. Therefore, they 
also can be ignored initially. To negate the effect of reliability growth, the reliability growth 
mission number on the primary system parameter screen may be set to one (the default value). 
Critical failure rates may be either ground and airborne failures or just airborne failures including 
the default value specified on the primary system parameter screen. Removal rates are only 
important if the calculation of mission spares requirements is part of the study objective. 

6.2.5 Update the mission profile and subsystem operating hours. The mission profile 
may be used to initialize the subsystem operating hours. However, it may then be necessary to 
adjust each subsystem to reflect their actual operating times. Maintenance actions are assumed 
to occur only during the hours specified. For many subsystems this will coincide with the 
power-on time. During ground processing time only the external failures will occur. All other 
times, only inherent failures are observed. 

6.2.6 If active redundancy is present at the entire subsystem level, then update the 
redundancy screen accordingly. Many times, it may only be the engines (main, OMS or RCS) 
which need to be updated. In the case of engines (as well as power and avionics), a k out of n 
redundancy configuration may be specified. (Note: some lower level redundancy will be 
implied by the input data to the extent it was captured in the original aircraft and shuttle data 
bases.) 


6.2.7 If it is desired to include an external tank (ET) and/or a solid rocket booster (SRB) 
in the overall reliability calculation, then the ET/LRB screen should be selected. Otherwise, this 
input screen may be ignored. When updating this screen, the analyst will need to specify the 
MTBM and MTTR of the four or five major subsystems. Default values were obtained from the 
shuttle system data. By assigning a reliability of one to either of these systems, the system will 
be ignored. 

6.2.8 Scheduled maintenance is a large part of the total maintenance manhours needed 
to support a mission. An aircraft generated parametric equation will compute a percentage of 
the unscheduled maintenance to be used in determining the scheduled maintenance. This is a 
vehicle level number and not a subsystem number. The analyst should update this number based 
upon assumptions concerning the frequency and extent of scheduled or preventive maintenance. 
The average crew size for scheduled maintenance identified on the system parameter table will 
impact only on the vehicle tumtime. The assumption is made that this is the number of 
individuals which can simultaneously perform scheduled maintenance on the vehicle. 

6.2.9 Under certain study objectives, it may be desirable to specify the reliability (non- 
redundant) of specified subsystems. The normal situation is for the model to compute these 
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values from the variable and weight data provided. However, if a reliability is specified, then 
a corresponding MTBM is determined and all other values are computed from it. 

6.2.10 Once all input screens have been reviewed and updated, the user should save the 
input values and then compute the R&M parameters. 

6.3 Analyses Methods 

6.3.1. Trade-off Studies and Sensitivity Analysis 

The model is designed to be very flexible. Therefore, the analyst may 
systematically change one or more input parameters, recompute, and observe the effect on any 
number of output variables. For example, in the preconceptual mode, the vehicle dry weight 
may be gradually increased and vehicle R&M performance observed. In the weight driven or 
weight-variable driven modes, a weight factor is available to systematically increase or decrease 
subsystem weights by a common factor. The MTBM and MHMA calibration factors may be 
used to determine the effect of an increase in reliability and/or maintainability on the 
"AIRCRAFT" selected subsystems. When using an (unknown or estimated) system parameter 
value, such as the launch factor, it is recommended that a sensitivity analysis on this parameter 
be accomplished. If the observed output is highly sensitive to changes in this parameter, then 
an effort should be made to obtain a more accurate estimate of its value otherwise the analyst 
may be justified in using the current value. 

6.3.2 Turntime, Fleetsize and Mission rates. 

There is a mathematical relationship among average vehicle tumtime, number of 
vehicles (fleet size), and the number of missions completed per year. The analyst can fix the 
desire number of missions per year on the system parameter table. By running the model with 
specified numbers of crews for each subsystem and for scheduled maintenance, vehicle 
minimum and maximum tumtimes are determined for one, two, or three maintenance shifts per 
day. In each case a fleet size is computed based upon the given mission rate and the average 
tumtime. By adjusting the number of crews assigned, both tumtimes and fleet size will change. 
Therefore, the analyst through trial and error can assign crews to achieve either a desired 
tumtime or fleet size. 

6.3.3 Manpower Assessments 

By its very nature, manpower is a highly flexible resource which makes its 
determination difficult. A minimum manpower requirement is computed by the model based 
upon the total maintenance manhours required per month and the average number of manhours 
per month an individual is available to do maintenance (direct labor) tasks. When manpower is 
to be determined by subsystem, this number should be compared to the average crew size for that 
subsystem and the larger of the two selected. If a single maintenance specialist can perform tasks 
on all the subsystems, then a smaller requirement may be computed. If the study objective is 
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to obtain a particular vehicle turntime or a specified fleet size, then the number of crews assigned 
times the average crew size should be the basis for establishing the manpower requirement. Both 
approaches are available to the costing model (LCC). The number of crews assigned is an input 
parameter to be used specifically for this purpose. It should also be noted that different 
aggregations of subsystems under a common maintenance specialty and different combinations 
of parallel and sequential maintenance will produce different manpower requirements. 
Therefore, more accurate manpower estimates may be obtained by using the maintenance 
simulation model (MSM) which was designed to provide for this flexibility. 

6.3.4 Reliability Specification 

With the feature which permits the analyst to specify by subsystem a nonredundant 
reliability, it is possible to generate (inherent) MTBM specifications by subsystem which will 
provide a given vehicle mission reliability. Through trial and error, adjustments can be made 
to each subsystem reliability until the desired vehicle reliability is obtained. At that point, the 
model computed inherent and critical MTBM’s will provide the desired outcome. 
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APPENDIX A 
GLOSSARY OF TERMS 

Abort rates (AB): Same as Critical Failure Rate. 

Add/Delete Subsystem: An option on the Input Parameter Menu for selecting the subsystems 
which define the vehicle. Enter the number corresponding to the subsystem to toggle from 
’COMPUTE’ to ’DELETE’ or from ’DELETE’ to ’COMPUTE’ as needed. ’COMPUTE’ 
means the subsystem is to be used. ’DELETE’ means the vehicle does not require the 
subsystem. 

Adj Shuttle MTBM-Space 0-No 1-Yes: A system parameter changed from the Update/Display 
Primary System Parameters Menu. If set to 1 , this system parameter causes a space environment 
adjustment to be made to the shuttle values for MTBM. The environment adjustment decreases 
the MTBM because of the additional vibrations and stresses during launch (Launch Factor) and 
increases the MTBM during on-orbit time because of reduced stress (based upon a Weibull shape 
parameter less than one). Typically, the parameter should only be set to 1 if user input MTBM 
values are being used instead of regression calculated or shuttle values, and these values were 
input without consideration of operating in a space environment (see Update/Display Shuttle 
MTBM’s & MTTR’s). Otherwise, the value should be left defaulted at 0 because the program’s 
default shuttle values already account for launch and space operation. 

Aggregate Avionics 0-No/ 1 -Yes: If set to 1 (Yes), the six different avionics subsystems will be 
replaced by a single avionics subsystem. The default setting is 0 (No) so all six avionics 
subsystems are used. This parameter is set from the Update/Display Primary System Parameters 
option of the Input Parameter Menu. 

Aggregated System: A higher level assembly formed from logical groupings of the 33 

subsystems comprising the NASA WBS. Several R&M parameters are computed for each of 
these aggregated systems by summing or weight averaging the corresponding subsystem values. 
Subsystem weights are the fraction of total failures within a grouping. 

Air+Gnd Aborts / Air Aborts: A toggle switch found on the Primary System Parameter menu 
to establish either ground plus air aborts or air aborts only as the basis for computing the critical 
MTBM. Ground aborts would consist of pre-launch (pad) aborts. 

Asgd Crews (Manpower report): The number of crews assigned by the user for each subsystem. 
Each crew consists of the average crew size (see). It is the bases for controlling the vehicle 
tumtime since this value represents the number of crews available to work simultaneously on the 
subsystem. This parameter is updated by calling the Computational Factors Menu and selecting 
CREW SIZES/CREWS ASSIGNED. 

Avail Manhrs/Month: The total number of hours during a month an individual is available within 
the workplace to do both direct and indirect work. It is input from the Update/Display Primary 
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System Parameters option of the Input Parameter Menu. Used in computing manpower 
requirements from computed manhour totals. 

Avg Crew (MANPOWER OUTPUT): The number of maintenance personnel required by 
subsystem equal to the Crew Size (see) calculated from the regression equations or updated 
directly by the user. It is considered to be the minimum requirement. See Manpwr for another 
method for computing monthly personnel requirements (the larger of the two values is passed 
to the O&S costing model (LCC)). 

Avg Crew Size-Schd Maint: The average number of workers available to perform scheduled 
maintenance. It is input from the Update/Display Primary System Parameters option of the Input 
Parameter Menu. It is used only in determining the impact scheduled maintenance has on vehicle 
turntime. 

Avg Manhrs/Msn (MAINTAINABILITY OUTPUT) : The average number of unscheduled 
maintenance manhours expended per mission (by subsystem) calculated by multiplying the 
number of maintenance actions per mission (Maint Actions/Msn) by the average manhours per 
maintenance action (Tot Manhr/Ma). 

Avg Subsys Repair Time Per Msn (VEHICLE TURN TIME OUTPUT): The average length of 
time to perform unscheduled on-vehicle maintenance per mission. It is computed by multiplying 
’On-vehicle MTTR’ by the average number of maintenance actions per mission (Maint 
Actions/Msn) and dividing by the number of crews assigned (Nbr Crews Assigned). It is 
assumed all assigned crews may work in parallel. 

Calibrated MTBM: The basic mean time between maintenance actions computed from the aircraft 
derived regression equations, read in directly for subsystems set at ’SHUTTLE’ (see Select 
Shuttle/ Aircraft), or input by the user (see Update/Display Shuttle MTBM’s & MTTR’s). These 
values are then multiplied by the MTBM Calibration (default value =1). Time is measured in 
operating (or power on) horns except for the landing gear subsystem which is measured in 
missions (or sorties). The MTBM represents a single subsystem value in the case where there 
are multiple redundant or k out of n redundant subsystems, and includes both inherent and 
external maintenance actions. 

Change Scheduled Maintenance: The percent used to calculate scheduled maintenance as a 
percentage of unscheduled maintenance (see Scheduled Maintenance Manhours) can be input 
instead of calculated from regression equations with this option of the Input Parameter Menu. 
If the percent scheduled maintenance is changed, the model automatically changes the status of 
the percent scheduled maintenance parameter to ’DO NOT COMPUTE’ as seen in the Compute 
R&M Parameters Menu selected from the Main Menu. 

Computation Selection Menu. The menu entered when the Compute R&M Parameters option is 
selected from the Main Menu. From this menu, the Critical Failure Rate (see), Removal Rate 
(see). Crew Size (see), Percent Off-Equipment (see), and Scheduled Maintenance Percentage 
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(see) factors are set to be computed by the program or to be maintained at their current values. 
If set at ’RECOMPUTE’, the program uses the derived regression equations to calculate new 
values. If set at DO NOT RECOMPUTE’, the program maintains the current values. If any 
of these factor levels were changed within the Update/Display Computational Factors Menu 
(see), the program automatically sets the appropriate factor to ’DO NOT RECOMPUTE’ in this 
menu. After reading in an input file, all factors are set to ’DO NOT RECOMPUTE.’ Always 
recompute the R&M parameters after changing any input to ensure the output has been correctly 
updated. 

Costing Model (OSC): A corresponding computer model which may be used in estimating 
vehicle operating and support costs (OSC). The model also allows for user input of various cost 
categories in order to produce a life cycle cost. Certain input/output parameters of the RAM 
may be saved in a file ( " .cst") which the cost model will read in and utilize in computing 
various costs. 

Crew Size(s): The average number of maintenance personnel required to perform an unscheduled 
maintenance action calculated from the aircraft derived regression equations or mean values 
where data was limited. Equations were derived at the highest Work Unit Code (WUC) level. 
Each subsystem within a level is assigned that level’s calculated crew size. Crew size can be 
input directly instead of calculated (see Update/Display Computational Factors). 

Crew Sizes by Subsys (SYSTEM PERFORMANCE SUMMARY OUTPUT): The total 
manpower required to support the vehicle calculated by summing the subsystem ’Personnel Based 
Upon Min Crew Size’ values and rounding up to the next larger integer. 

Critical Fail Rate (RELIABILITY OUTPUT): The Critical Failure Rate (see) computed by the 
program or input by the user (see Update/ Display Computational Factors and Default Abort 
Rate). The critical failure rate will be identified as ground plus air aborts or air aborts only. 

Critical Failure Rate: The fraction of subsystem unscheduled maintenance actions which result 
in ground and/or air aborts. Critical Failure Rate is one of the R&M factors calculated by the 
program from aircraft derived regression equations. Data was not available to determine 
regression equations for the TANKS, xxIEP, xx REC, AUX SYS subsystems so default values 
were assigned (values can be changed, see Default Abort Rate). Also, a subsystem’s value for 
Critical Failure Rate can be input, rather than calculated by the model, from the Update/Display 
Computational Factors Menu (see). The critical failure rates are used to compute the mission 
reliabilities only. The critical failure rate may be based upon air aborts only or air plus ground 
aborts. 

Critical MTBM (RELIABILITY OUTPUT): The critical mean time between maintenance actions 
computed by dividing the space adjusted MTBM (Space Adj) by the Critical Fail Rate. 

Default Abort Rate: The Default Abort Rate (Critical Failure Rate) is used for those subsystems 
not addressed by derived regression equations (TANKS, xxIEP, xx REC, AUX SYS) and is also 
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used for the ET/LRB system. The Default Abort Rate can be changed from the Update/ Display 
Primary System Parameters option of the Input Parameter Menu. 

Default Percent Off Manhours: Regression equations were not obtained for the POWER, 
BATTERY/FUEL CELL, and REC AND AUX subsystems so the Default Percent Off Manhours 
is used for these subsystems. The percent is entered by selecting Update/ Display Primary System 
Parameters from the Input Parameter Menu. Refer to Percent OFF Equipment for more 
information. 

Direct Work: The maintenance work addressed by the program computed manhours. All other 
work is considered deferable and labeled as indirect work. This indirect work is accounted for 
as a percentage of the total available hours (see Avail Manhrs/Month). Therefore in computing 
manpower, the program computed maintenance manhours (direct work) is divided by one minus 
the percent indirect work times the available hours per month per person. 

Effective Fill Rate (SYSTEM SPARES OUTPUT): The actual fill rate (percent of time a spare 
component is available when a failure has occurred) achieved as determined from the calculated 
Spares Requirement. It may differ from the user input fill rate (see Spare Fill Rate Obj) because 
the Spares Requirement is an integer value which assures that the level of spares meets or 
exceeds the fill rate goal based upon the Poisson probability distribution. 

End of Power Fit (RELIABILITY OUTPUT): The probability that no critical failures have 
occurred up to the end of the main engine (and optionally LRB/ET) burn time. It is based upon 
the subsystem redundancy established by the user. 

Environment Adjustment: See Adj Shuttle MTBM-Space 0-No 1-Yes. 

Establish System Reliablities: One of the options on the Input Parameter Menu. If nonredundant 
subsystem reliabilities are known, they can be input directly instead of the program calculating 
the reliabilities. This feature permits estimation of the effect of improving subsystem reliability 
on the vehicle’s reliability and maintainability. When this option is used, the program will 
compute corresponding space adjusted and critical MTBM’s for use in determining 
maintainability, manpower, spares, and tumtimes. 

File name: See Vehicle/File name. 

Fraction inherent failures: The fraction of total maintenance actions resulting from inherent 
component failures rather than externally induced or no defect found actions. This fraction is 
used to modify the calibrated MTBM to obtain a mission and a ground processing MTBM. 

Fraction OFF Equipment (POFF): The fraction of total unscheduled maintenance manhours 
performed on components removed from the vehicle. It is calculated from aircraft derived 
regression equations. Data was limited so regression equations for the POWER, BATTER/ FUEL 
CELL, and REC AND AUX subsystems were not obtained so a default value was assigned to 
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those subsystems. The default value can be changed from the Update/Display Primary System 
Variables Menu (see Default Percent Off Manhours). In addition, a subsystem’s value for 
Percent OFF Equipment can be input, rather than calculated by the model, from the 
Update/Display Computational Factors Menu. The hours spent working on off equipment do not 
delay processing of the vehicle. Therefore 1-POFF, or the percent of on-vehicle work, is used 
in determining vehicle turn time (see ’Max Turn Times’ and ’Min Turn Times’). 

Fraction On-Veh (MAINTAINABILITY OUTPUT): One minus the fraction of off-vehicle work 
(1-POFF). The fraction of off- vehicle work is computed from regression equations or input 
directly by the user (See Fraction OFF Equipment). 

Gmd Proc MA (Maintainability Report): The number of maintenance actions generated during 
the ground processing segment. Only externally induced and no defect found actions are 
considered. The number of maintenance actions is proportional to the length of time specified 
for ground processing, the effective failure rate (MTBM), and the number of redundant 
subsystems. 

Gmd Proc MTBM (RELIABILITY OUTPUT): The ’Tech/Growth MTBM’ value adjusted for 
external maintenance actions only by dividing this value by one minus the fraction of inherent 
failures. External maintenance actions are maintenance induced and no trouble found 
maintenance actions. 

Growth Curve Slope: The value of the parameter b (default = .5) in the Duane reliability 
growth curve given by MTBM = MTBM x Mission Number*. This curve may be used to 
account for reliability growth as a function of the number of missions completed. System R&M 
parameters will be computed for the specific mission number identified (default = 1). 

Indirect Work: All other categories of work excluding the manhours of direct work accounted 
for by the model. This includes administrative time, training, clean-up, documentation, etc. 
This indirect work is accounted for as a percentage of the total available hours (see Avail 
Manhrs/Month). Therefore in computing manpower, the program computed maintenance 
manhours (direct work) is divided by one minus the percent indirect work times the available 
hours per month per person. 

Input Parameter Menu: A second level menu entered from the Main Menu. All vehicle, system, 
and mission parameters are entered and updated from this menu. The options available from this 
menu are: 

Add/Delete Subsystem (see) 

Select Shuttle/ Aircraft (see) 

Update/Display Primary System Parameters (see) 

Update/Display Subsystem Weights (see) 

Update/Display Secondary Variables (see) 

Update/Display Computational Factors (see) 

Update/Display Mission Profile (see) 
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Update/Display System Operating Hours (see) 

Update/Display Redundancy Configuration (see) 

Update/ Display LRB/ET Reliability Data (see) 

Update/Display Shuttle MTBM’s & MTTR’s (see) 

Change Scheduled Maintenance (see) 

Establish System Reliabilities (see) 

Launch Factor: The launch factor is an adjustment to the MTBM (a constant failure rate is 
assumed) to account for increased vibration and stress during launch. This adjustment is applied 
to the MTBMs calculated from the aircraft derived regression equations automatically or to the 
user input MTBM values if Adj Shuttle MTBM-Space 0-No 1-Yes is set to "1". The Launch 
Factor can be changed from the Update/Display Primary System Parameters option of the Input 
Parameter Menu. 

Launch Pad Time: The number of days the vehicle is on the launch pad. This time includes the 
mission pad time (see Update/ Display Mission Profile) which is the time the vehicle is actually 
operating while on the launch pad. Launch pad time is used to calculate vehicle turn time (see 
Max Turn Times and Min Turn Times). It is changed from the Update/ Display Primary System 
Parameters option of the Input Parameter Menu. 

Launch Time (RELIABILITY OUTPUT): The reliability at launch time. The probability of no 
critical failures during prelaunch (pad time). It is based upon the subsystem redundancy 
established by the user. This reliability is one if ground aborts are not included. 

Main Menu: The top level menu of the RAM program. The selections available from this menu 
are: 

Read Input from a File (see Vehicle/File name) 

Input Parameter Menu (see) 

Compute R&M Parameters (see Computation Selection Menu) 

Output Report Menu (see) 

Save Input Parameters (see Vehicle/File name) 

Save Output for Cost Model 

Change Vehicle/File Name (see Vehicle/File name) 

Terminate Session 


Maintainability Report (SYSTEM PERFORMANCE OUTPUT): One of the program’s output 
reports. It lists the vehicle maintainability parameters: maintenance actions per mission (sum of 
the subsystem Maint Actions/Msn), total maintenance hours per maintenance action (average of 
the subsystem Tot Manhr/Ma), average unscheduled maintenance manhours per mission (sum 
of the subsystem Avg Manhrs/Msn), on-vehicle maintenance manhours, off-vehicle maintenance 
manhours, and mission versus ground processing maintenance actions. 

Maintenance Actions (MA): Unscheduled maintenance service initiated by inherent failures 
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(subsystem failures), induced failures (external failure causes), no defect found or cannot 
duplicate failures, and maintenance induced failures. Only inherent maintenance actions are 
assumed to occur as a result of the mission operating time. Induced and no defect found 
maintenance actions are assumed to occur during ground processing hours only . 

Maint Actions/Msn (MAINTAINABILITY OUTPUT) : The number of unscheduled maintenance 
actions per mission for each subsystem calculated by dividing a subsystem’s operating (mission) 
hours by its space adjusted inherent MTBM (Space Adj) and dividing its ground processing time 
by a non-inherent (external induced and no defect found) MTBM then multiplying by the number 
of redundant subsystems. Operating hours include pad time and the mission duration. 

Manhrs/Mo (MANPOWER OUTPUT): The average unscheduled maintenance manhours 
expended per month. It is calculated by multiplying the average maintenance manhours per 
mission (Avg Manhrs/Msn) by the required number of missions per month (Planned Missions/yr 
/ 12 ). 

Manhrs/Msn (MANPOWER OUTPUT): Same as Avg Manhrs/Msn. 

Manhr Driven by Aggregate (MANPOWER/SPARES): The total maintenance manpower 
computed by dividing the total vehicle maintenance manhours per month by one minus the 
percent of indirect work times the available manhours per month per person rounded up to the 
next larger integer. That is 

Manhr bvAer = — ManhrslMo 

(1 -% indirect ) jc (Avail Manhrs/Mo / Person ) 


Manhr Driven by Subsystem (Manpower/Spares): The total maintenance manpower computed 
by dividing each subsystem’s maintenance manhours per month (Manhrs/Mo) by the percent of 
direct work (i.e. one minus % indirect) times the available manhours per month per person, 
rounding the subsystem values to the next larger integer, and then summing the values. 

Manpower/Spares Report (SYSTEM PERFORMANCE OUTPUT): One of the program’s output 
reports. It shows the total number of spares computed to support all of the vehicle’s subsystems. 
It also shows the manpower requirements for the vehicle, and optionally ET/LRB, computed in 
three ways: Manhr Driven Aggregate (see), Manhr Driven by Subsystem (see), and Crew Size 
by Subsystem (see). 

Manpwr (MANPOWER OUTPUT): The number of maintenance personnel earned by the 
subsystem average manhours per month requirement for unscheduled maintenance (Manhrs/Mo). 
It is computed by dividing the average manhours per month requirement by the number of direct 
labor hours a technician is available to work in a month. The larger of this value and the 
average crew size is passed to the O&S Costing Model (OSC) as the subsystem manpower 
requirement. 
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Max Turn Times (VEHICLE TURN TIME OUTPUT): The maximum vehicle turn time 
calculated under the assumption that all subsystem maintenance work is done sequentially. It is 
calculated (in hours) by summing the subsystem on-vehicle unscheduled maintenance times, 
scheduled maintenance time, integration time, launch pad time, and mission time. It is also 
computed in days for one, two, or three maintenance shifts per day. 

Mean Demands per Mission (SYSTEM SPARES OUTPUT): The average number of removal 
and replacements of a component (demands for spares) per mission. It is computed by 
multiplying the average number of maintenance actions per mission (Maint Actions/Msn) by the 
Removal Rate. It becomes the mean of the Poisson distribution used to describe the number of 
failures requiring spares in a given period of time. 

Mean Time Between Maintenance (MTBM): The average length of time in operating (and power 
on) hours between unscheduled maintenance actions on a particular subsystem. It is computed 
from aircraft derived regression equations, read in directly for subsystems set at ’SHUTTLE’ (see 
Select Shuttle/ Aircraft), or input by the user (see Update/Display Shuttle MTBM’s & MTTR’s). 
See Calibrated MTBM. 

Mean Time to Repair (MTTR): The average length of time in hours to repair a subsystem. It 
is calculated by dividing the manhours per subsystem maintenance action (Tot Manhr/Ma) by the 
subsystem Crew Size. Shuttle values for MTTR can be used directly (see Select Shuttle/ Aircraft) 
or values for MTTR can be input by the user directly (see Update/ Display Shuttle MTBM’s & 
MTTR’s). See On-Vehicle MTTR. 

Min Turn Times (VEHICLE TURN TIME OUTPUT): The minimum vehicle turn time 
calculated under the assumption that all subsystem maintenance work is done in parallel. It is 
calculated (in hours) by summing the maximum subsystem on-vehicle unscheduled maintenance 
time or scheduled maintenance time (whichever is larger), integration time, launch pad time, and 
mission time. Subsystem unscheduled maintenance times are computed by dividing the total 
subsystem maintenance manhours by the crew size times the number of assigned crews. It is also 
computed in days for one, two, or three maintenance shifts per day. 

Mission Completion (RELIABILITY OUTPUT): The probability of no critical failures 
throughout the mission (the entire mission profile: pad time through landing). It is based upon 
the subsystem redundancy established by the user. 

Mission MTBM (RELIABILITY OUTPUT): The ’Tech/Growth MTBM’ value adjusted for both 
inherent maintenance actions only and for the high constant failure rate during launch and the 
decreasing failure rate while in orbit. (See ’Weibull Shape Parameter’ and ’Launch Factor’ if 
using MTBM values calculated from aircraft derived regression equations or ’Adj Shuttle MTBM 
0-No 1-Yes’ if using user input MTBM values.) 

Msn MA (MAINTAINABILITY REPORT): The number of maintenance actions generated 
during the mission segment. Computed by taking the total mission time times the inherent 


A-8 



failure rate times the number of redundant subsystems. Excludes ground processing generated 
MA’s. 

Msn Nbr for Reliability Growth: The specific mission number at which the system reliabilities 
and maintainability parameters are to be computed based upon a Duane reliability growth curve 
(see Reliability Growth Curve Slope). The default value is one (1) which is equivalent to no 
reliability growth. All maintenance action numbers, manpower, spares, etc. will reflect the 
reliability growth achieved at this mission number. It assumes continuous reliability 
improvement at the rate given by the growth curve slope over the specified number of missions. 

Mode or Mode Indicator: The RAM program operates in one of three modes: preconceptual, 
weight-driven, or weight/variable-driven. The mode is selected based on how much design data 
is available for the proposed vehicle at the time the program is to be run. It is changed from the 
Update/Display Primary System Parameters option of the Input Parameter Menu. 

Preconceptual mode: Only the six Primary Driver Variables (vehicle dry weight, vehicle 
length and wing span, crew size, number of passengers, and number of main engines) 
need to be input. The subsystem weights are calculated from the Weight Distribution 
selected by the user. The secondary variables are calculated from aircraft derived 
regression equations. 

Weight-driven mode: The subsystem weights and the Primary Driver Variables, except 
vehicle dry weight, are input (see Update/Display Subsystem Weights). The vehicle dry 
weight is not input as it is calculated by the model as the sum of the entered subsystem 
weights. The secondary variables are calculated from aircraft derived regression 
equations. 

Weight/variable-driven mode: The subsystem weights, secondary variables, and Primary 
Driver Variables, except vehicle dry weight, are input (see Update/Display Subsystem 
Weights and Update Display Secondary Variables). The vehicle dry weight is not input 
as it is calculated by the model as the sum of the entered subsystem weights. 

MTBM & MTTR Calibration: MTBM & MTTR Calibration can be entered to make changes to 
the unadjusted (technology and reliability growth and environmental adjustments not yet applied) 
subsystem MTBM and MTTR values by multiplying the values by a common factor. When the 
program is run, the technology growth and environmental adjustments will then be made. This 
is particularly useful, for example, in performing sensitivity analyses where the MTBM and 
MTTR values are systematically changed. MTBM & MTTR Calibration is changed from the 
Update/Display Computational Factor Menu. The default value is 1 . 

Nbr Crews Assigned (VEHICLE TURN TIME OUTPUT): The number of crews assigned to 
work on each subsystem as input by the user (see Number of Crews). Used in computing 
vehicle turn times. Default is one crew per subsystem. 
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Number of Crews: The number of crews assigned to the unscheduled maintenance of a particular 
subsystem. It is used in calculation of the minimum vehicle turn time (Min Turn Time); the 
duration of total subsystem repair will decrease as Number of Crews is increased. Number of 
Crews is input from the Update/Display Computational Factor Menu (select CREW SIZE 
option). The number of individuals in a crew is the Crew Size (see). 

Otf-Veh Mh (MAINTAINABILITY OUTPUT): The average off-vehicle unscheduled 
maintenance manhours performed per mission computed by multiplying the average manhours 
per mission (Avg Manhrs/Msn) by the fraction off-vehicle work (POFF). 

On-Veh Mh (MAINTAINABILITY OUTPUT): The average on- vehicle unscheduled maintenance 
manhours performed per mission computed by multiplying the average manhours per mission 
(Avg Manhrs/Msn) by one minus the fraction off-vehicle work (1-POFF). 

On-Vehicle MTTR (VEHICLE TURN TIME OUTPUT): On-vehicle mean time to repair 
measured in hours by subsystem. It is the average on-vehicle repair time per unscheduled 
maintenance action for a subsystem. It is calculated by dividing the manhours per maintenance 
action (Tot Manhr/Ma) by Crew Size (Personnel Based on Min Crew) and multiplying by one 
minus the percent off-vehicle work (1-POFF), or input directly if shuttle values (see Select 
Shuttle/Aircraft) or user input values (see Update/ Display Shuttle MTBM’s & MTTR’s) are used. 

Orbit Insertion (RELIABILITY OUTPUT): The probability of no critical failures up to the time 
the vehicle has been inserted into orbit. It is based upon the subsystem redundancy established 
by the user. 

Percent Indirect Work: The percent of time a worker will spend doing non-maintenance or 
Indirect Work. Percent Indirect Work is input from the Update/Display Primary System 
Parameters option of the Input Parameter Menu. 

Planned Missions/ Year: The number of missions scheduled per year. It is input from the 
Update/ Display Primary System Parameters option of the Input Parameter Menu. 

Primary Driver Variables: There are six primary driver variables: vehicle dry weight, vehicle 
length, wing span, crew size, number of passengers, and number of main engines. These 
variables are used in the aircraft derived regression equations to calculate the reliability and 
maintainability parameters. They are entered from the Input System Primary Parameters Menu. 

R&M: Abbreviation for ’reliability and maintainability’. 

Reentry (RELIABILITY OUTPUT): The probability of no critical failures up to the time at the 
end of the orbit phase of the mission just prior to reentry. It is based upon the subsystem 
redundancy established by the user. 

Reliability and Maintainability Program (RAM): The computer program which estimates 
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reliability and maintainability parameters for proposed space vehicles. The R&M parameters are 
estimated from aircraft derived regression equations which are functions of the Primary Driver 
Variables, subsystem weights, and secondary variables. If the subsystem weights and/or 
secondary variables are not known, they are estimated from aircraft derived regression equations 
which are functions of the Primary Driver Variables. See ’Mode or Mode Indicator’. 

Reliability Report (SYSTEM PERFORMANCE OUTPUT): One of the output reports. It 
provides subsystem and vehicle reliabilities assuming vehicle subsystem redundancies as set by 
the user (see Update/Display System Redundancy Configuration) at the mission’s major milestone 
points: launch, end of power flight, orbit insertion, reentry, and mission completion. 
Reliabilities are based upon inherent failures only. 

Rqd Crews (Manpower Report): The minimum number of crews required based upon the 

manpower requirements as determined by the maintenance manhours of work divided by the 
average crew size. Normally, assigned crews (see Asgd Crews) should be set to this value or 
a larger value. 

Removal Rate (RR): The fraction of total maintenance actions which result in a removal and 
replacement of a component from the vehicle. Removal Rate is one of the R&M factors 
calculated by the RAM program. In some cases, regression equations for the removal rates could 
not be derived due to limited data, so the mean values of the available data were used instead. 
Subsystem values for removal rate can be entered from the Update/Display Computational 
Factors Menu replacing program values. 

Removal Rate/M A (SYSTEM SPARES OUTPUT): The fraction of maintenance actions which 
results in a removal and replacement of a component from the vehicle as calculated by the 
program or input directly by the user (see Removal Rate). The assumption is made that a 
removed component will generate a demand for a replacement (spare) component. 

Select Shuttle/Aircraft: An option on the Input Parameter Menu for selecting that the shuttle 
MTBM and MTTR values be used for a subsystem (’SHUTTLE’) instead of the values calculated 
by aircraft derived regression equations (’AIRCRAFT’) (see Shuttle MTBM, MTTR, and RR). 
Enter the number corresponding to a subsystem to toggle between ’AIRCRAFT’ and 
’SHUTTLE’. ’SHUTTLE’ selected subsystems will be displayed in red. The ’SHUTTLE’ 
values can be changed through the Update/Display Shuttle MTBM’s & MTTR’s option of the 
Input Parameter Menu. 

Screen Display (Output) Menu: The output reports which display all of the reliability and 
maintainability parameters are available from this menu entered from the Main Menu. There are 
seven output reports: Reliability, Maintainability, Manpower, Spares, Vehicle Turn Time, 
System Performance Summary, and Aggregated System Report. 

Shuttle MTBM, MTTR, and RR: A Martin Marietta database was analyzed to obtain mean values 
for MTBM, MTTR, and RR for the space shuttle’s subsystems. The RAM program can be run 
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with these values instead of values calculated from the aircraft derived regression equations (see 
Select Shuttle/ Aircraft). 

Spare Fill Rate Obj: Fill rate is the fraction of time a spare component is available when a failure 
has occurred. This is a target fill rate used to establish the level of spares for each subsystem 
(see Effective Fill Rate). It is input from the Update/Display Primary System Parameters option 
of the Input Parameter Menu. 

Spares Requirement (SYSTEM SPARES OUTPUT): The computed number of spare components 
required per mission in order to achieve a user specified fill rate (see Spare Fill Rate Obj). It 
is computed based upon the Poisson probability distribution with a mean equal to the Mean 
Demands per Mission (see). 

Subsys Non-Redundant Msn Rel (RELIABILITY OUTPUT): Subsystem non-redundant mission 
reliability. The probability that a subsystem will complete the mission without a critical failure 
assuming no system redundancy is present (primary system operates). It is this reliability which 
the user may specify (see Establish System Reliabilities). 

Tech/Grwoth MTBM (RELIABILITY OUTPUT) : The 'Calibrated MTBM’ value (see) adjusted 
by the Technology Growth Factor to account for technology improvements occurring during the 
time period of the input data to the user specified Technology Yr (see and see Technology 
Growth Factor). This MTBM is further adjusted based upon the reliability growth curve slope 
(see) and mission number specified by the user. 

Technology Growth Factor: The yearly rate at which technology will grow (improve). The 
regression equations were derived from 1986 aircraft data and the shuttle MTBM, MTTR, and 
RR values were obtained from 1992 data. Technology Growth Factor is used to increase the 
MTBM values to account for technological improvements since those baseline dates. Each 
subsystem has a default value for Technology Growth Factor which can be changed from the 
Update/ Display Computational Factors option of the Input Parameter Menu. 

Technology Yr: The year that reflects the technology level designed into the vehicle. The 
regression equations were derived from 1986 aircraft data and the shuttle MTBM, MTTR, and 
RR values were obtained from 1992 data. Technology is assumed to grow (improve) each year 
according to the Technology Growth Factor. Therefore, the RAM program uses Technology Yr 
to calculate the number of years over which technology would grow by the Technology Growth 
Factor and then adjusts the MTBM (Tech Adj). Technology Yr is changed from the 
Update/Display Primary System Parameters option of the Input Parameter Menu. 

Tot Maint Actions (VEHICLE TURN TIME OUTPUT): Same as Maint Actions/Msn. 

Tot Manhr/Ma (MAINTAINABILITY OUTPUT): The average number of on and off vehicle 
manhours expended per unscheduled maintenance action computed from aircraft derived 
regression equations, from the shuttle MTTR and crew size values, or from user input MTTR 
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values and Crew Size values. 


Update/Display Computational Factors: One of the options available from the Input Parameter 
Menu. The computational factors are: Technology Growth Factor (see). Critical Failure Rates 
(see), subsystem removal rates (see Removal Rates), MTBM & MTTR Calibration (see). Crew 
Sizes (see), Percent OFF-Equipment (see) and Fraction Inherent Failures (see). Subsystem 
values for these factors can be entered directly (instead of the program calculating the values or 
using default values) from the Update/Display Computational Factors Menu. If new values are 
entered, the program automatically changes the status of the corresponding parameter to ’DO 
NOT RECOMPUTE’ as seen in the Compute R&M Parameters menu selected from the Main 
Menu. Note, if one subsystem’s factor value is changed, the program will not compute any of 
the other subsystem values for that factor. Instead, the current values for that factor will be 
maintained. 

Update/Display LRB/ET Reliability Data: If the vehicle has a liquid booster rocket or external 
fuel tank (LBR/ET), the reliability and maintainability parameters of these subsystems can be 
entered with this option of the Input Parameter Menu. If LRB/ET is required, either the 
subsystem reliabilities can be entered and the program calculates the system reliability or the 
LRB/ET system reliability can be entered directly. The default setting is no LRB/ET. If the 
menu is entered, set the system reliability to 1 to maintain the default setting of no LRB/ET. 

Update/Display Mission Profile: The mission profile is entered from this option of the Input 
Parameter Menu. The mission profile is defined by the ground power time, pad time (while 
under power), powered phase completion, obit insertion, orbit completion, and reentry. The 
duration of ground power time and pad time are entered. However, the times are cumulative 
from launch time (time=0) to reentry time. For example, if the vehicle is inserted into orbit at 
time= 1 and stays in orbit for time=70, the orbit completion time occurs at time =71 . If the 
mission profile is changed, the subsystem operating hours will be updated if a Y (yes) is entered 
at the prompt within this menu so that the hours each subsystem operates will equate to the new 
mission profile. See Update/Display System Operating Hours. This option is generally used 
only to initialize the subsystem operating hours. Once the subsystem operating hours have been 
adjusted for each subsystem, this option should not be used. 

Update/Display Primary System Parameters: One of the options available from the Input 
Parameter Menu. The six Primary Driver Variables and the 18 system parameters are input from 
this menu. They are listed below. (Each system parameter is defined individually in this 
glossary.) 

Primary Driver Variables 
Dry Wgt (weight in lbs) 

Length (ft) 

Wing Span (ft) 

Crew Size 
Nbr Passengers 
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Nbr Main Engines 
System Parameters 

Adj Shuttle MTBM-Space 0-No 1-Yes 

Technology Yr 

Default Abort Rate 

Weibull Shape Parameter 

Launch Factor 

Avail Manhrs/Month 

Percent Indirect Work 

Spare Fill Rate Obj 

Avg Crew Size-Schd Maint 

Planned Missions/Year 

Mode Indicator (see Mode) 

Vehicle Integration Time (days) 
Launch Pad Time (days) 

Aggregate Avionics 0-No 1-Yes 

Default Percent Off Manhours 

NBR RCS Engines 

NBR OMS Engines 

Growth Curve Slope 

Msn Nbr for Reliability Growth 

Air+Gnd Aborts -0 / Air Aborts -1 


Update/Display Redundancy Configuration: The number of duplicate subsystems (the redundancy 
configuration) can be entered from this option of the Input Parameter Menu. The number of 
subsystems entered must be at least as many as the minimum number required for that subsystem 
(specified within the menu). For the power, engine and avionics subsystems, a more general 
k-out-of-n redundancy can be entered. The number of main, RCS and OMS engines are 
automatically set to the value input from the Update/Display Primary System Parameters option 
of the Input Parameter Menu. The default settings for all other subsystems are 1 subsystem per 
vehicle (i.e., 1 primary with no backups). 

Update/Display Secondary Variables: If the mode (see) has been set to Weight/Variable-Driven, 
the secondary variable values can be input (instead of calculated from regression equations) from 
this menu entered from the Input Parameter Menu. The secondary variables are: 

Fuselage Area 
Fuselage Volume 
Wetted Area 
Number of Wheels 
Number of Actuators 
Number of Control Surfaces 
KVA Maximum 
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Number of Hydraulic Subsystems 
Number of Fuel Tanks (internal) 

Total Number of Avionics Subsystems 

Number of Different Avionics Subsystems (unique) 

BTU Cooling 

Number of Oxidizer Tanks 

Update/Display Shuttle MTBM’s & MTTR’s: The program has space shuttle subsystem MTBM 
and MTTR values obtained from a Martin Marietta database (see Shuttle MTBM, MTTR, and 
RR) that can be used instead of values calculated from the aircraft derived regression equations. 
If the shuttle values are being used (see Select Shuttle/Aircraft), they can be modified (user 
input) from this option of the Input Parameter Menu. The space adjustment factor must be 
changed from 0 to 1 (see Adj Shuttle MTBM-Space 0-No 1-Yes) if the new values do not 
account for the additional stresses and vibrations of operating in space. 

Update/Display Subsystem Weights: One of the options available from the Input Parameter 
Menu. If operating in the Preconceptual Mode, the Weight Distribution for determining the 
subsystem weights from the vehicle dry weight is selected from this menu. If operating in either 
Weight-Driven or Variable/Weight-Driven Mode (see ’Mode or Mode Indicator’), the subsystem 
weights are input directly. A Weight Factor (see) can be used to increase or decrease each 
subsystem weight by a fixed percent. This may be useful for performing sensitivity analysis. 

Update/Display System Operating Hrs: This option of the Input Parameter Menu provides a way 
to change the hours a particular subsystem operates (the vehicle’s operating hours are set through 
Update/Display Mission Profile). A subsystem’s hours may need to be changed so they more 
closely reflect the actual operating hours during a mission. For example, the main engines 
(propulsion- main subsystem) will not operate while the vehicle is in orbit so the orbit time is 0. 
The operating hours of the landing gear subsystem cannot be changed because the failure rate 
is measured as failures per mission on reentry not per operating time (see Calibrated MTBM). 
The ground operating hours are not used in computing the mission reliabilities but are used in 
calculating the turn times and the total maintenance actions per mission (Maint Actions/Msn). 

Vehicle/File name: Each time the RAM program is started a vehiclename or file name must 
be entered. The vehicle name will be displayed on screen and printed on the output reports. 
Also, the input parameters can be saved in a file called vehicle name.dat (the program 
automatically attaches the .dat extension) by entering 5 from the Main Menu. The saved input 
parameters can then be loaded into the program during a later session by entering 2 from the 
Main Menu (enter the name without the .dat extension). Data can be saved in a file called 
vehicle name.cst dat (the program automatically attaches the .cst extension) to be used as input 
to the O&S Costing Model by entering 6. The vehicle name may be changed at any time by 
entering 7 from the Main Menu. If a name is not specified when initializing the RAM program, 
the program will assign the name: "NO NAME." 

Vehicle Integration Time: The number of days allocated for integration of payloads and boosters 
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with the vehicle. It is changed from the Update/Display Primary System Parameters option of 
the Input Parameter Menu. 

Weight Factor: The weight factor changes the weights of the vehicle and each subsystem by the 
amount entered. For example, if .95 is entered for the weight factor the current vehicle and 
subsystem weights are reduced by 5% to 95% of their value. The weights are restored to their 
previous value by entering the inverse of the weight factor (1/.95 = 1.0526316) as the new 
weight factor. A cumulative weight factor is calculated by the program. If .9 is entered after 
the .95, the cumulative weight factor is ,9x.95 or .855. The weights are restored to their 
previous value by entering the inverse of the last factor used (1/.9). The weights are restored to 
their original values by entering the inverse of the (displayed) cumulative weight factor (1/. 855). 
The weight factor is changed from the Update/ Display Subsystem Weights menu entered from 
the Input Parameter menu. 


Weight Distribution: If operating in the Preconceptual Mode, the weight distribution for 
determining the subsystem weights from the vehicle dry weight must be selected within the 
Update/Display Subsystem Weights Menu entered from the Input Parameter Menu. 

1 . Large Vehicle: subsystem weights are calculated by multiplying NASA estimated large 
vehicle subsystem percentages by the total vehicle dry weight 

2. Shuttle: subsystem weights are calculated by multiplying shuttle subsystem percentages 
by the total vehicle dry weight 

3. Small Vehicle: subsystem weights are calculated by multiplying NASA estimated small 
vehicle subsystem percentages by the total vehicle dry weight 

4. Aircraft: subsystem weights are calculated from the aircraft derived regression 
equations 

After the distribution selection, each subsystem’s weight percentage of the total vehicle dry 
weight is displayed; the percentages can be modified as long as the total is 100%. The actual 
subsystem weights are then displayed. 

Weibull Shape Parameter: The subsystem failure rates while the vehicle is in orbit are assumed 
to follow a Weibull distribution. An adjustment is made to the MTBM values obtained from the 
aircraft derived regression equations or to the user input MTBM values if ’Adj Shuttle 
MTBM-Space 0-No 1-Yes’ is set to "1" to account for the decreased stresses during orbit. The 
shape parameter (b) of the Weibull distribution can be entered from the Update/Display Primary 
System Parameters option of the Input Parameter Menu. The default value of .28 was obtained 
from a large database of satellite failures. The scale parameter (a) of the Weibull distribution 
is computed automatically by the program to provide for a continuous failure rate in the 
transition from launch to orbit. 
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APPENDIX B 

SCENARIO 1: 

PRECONCEPTUAL VEHICLE 


To estimate reliability and maintainability (R&M) parameters for preconceptual space vehicles, 

i.e. for vehicles for which knowledge is very limited, use the RAM program as described below. 
The R&M parameters calculated by the program include MTBM, MTTR, reliability, maintenance 
manhours, critical failure rates, removal rates, maintenance crew sizes, percent off-equipment 
maintenance, and scheduled maintenance percentage. The primary input the program requires 
is vehicle dry weight, vehicle length and wing span, crew size, number of passengers, and 
number of main engines. 

1. Enter RAM at the DOS prompt with the applicable path to the storage location of the 
program, at the DOS prompt to start up the program. 

NOTE: ALL USER RESPONSES SHOULD BE IN UPPER CASE! 

2. Enter a vehicle name (file name).' 

3. The software initializes by default to the Preconceptual Mode. In this mode, there are two 
ways to estimate the R&M parameters by vehicle subsystem: 1) all parameters are calculated 
from the aircraft derived regression equations using the primary driver variables: vehicle dry 
weight, vehicle length and wing span, crew size, number of passengers, and number of main 
engines, or 2) shuttle (default) or user input values for MTBM and MTTR are used directly (they 
are not calculated) and all other R&M parameters are calculated. The necessary user input for 
each method is described separately below. Enter 2 from the Main Menu to bring up the Input 
Parameter Menu. Within this menu all vehicle, system, and mission parameters will be input. 

1) ALL PARAMETERS TO BE CALCULATED... 

a) Enter 1 to select the subsystems which define your vehicle. For each subsystem that is not 
required, simply enter the number corresponding to the subsystem to toggle from ‘COMPUTE* 
to ‘DELETE’ . If a subsystem has been erroneously deleted, enter the number of that subsystem 
to change ’DELETE’ to ’COMPUTE’. This menu has two screens. Enter return when done 
with the first screen to bring up the second screen with the remaining subsystems. When done, 
enter return to go back to the Input Parameter Menu. Enter n (no) to the prompt to change a 
subsystem name. 2 (The name of a subsystem can be changed as long as the total number of 
subsystems does not exceed 33. Please read section 2) on using shuttle MTBM and MTTR for 


’unless a path is included as part of the name, all files saved will be in the current 
subdirectory/directory . 

2 all negative responses may be accomplished by simply entering return. 
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more information before changing a subsystem name.) 


NOTE: Most menus entered from the Input Parameter Menu are two screens. Entering return 
from the first screen will bring up the second screen. Also, you can return to the Input 
Parameter Menu by simply entering return when done inputting data. 

b) Enter 3 to input the primary driver variables and other system parameters. Enter the values 
for vehicle dry weight, vehicle length and wing span, crew size, number of passengers, and 
number of main engines. The space adjustment to the MTBM calculation should be left 
defaulted at 0. The remaining parameters should be changed as needed. Refer to the Glossary 
of Terms in Appendix A or to Chapters 3 and 5 of "Enhanced Methods for Determining 
Operational Capabilities and Support Costs of Proposed Space Systems" for more information. 
Return to the Input Parameter Menu. 

c) Enter 4 to select the method for determining the subsystem weights. 

1 . Large Vehicle: subsystem weights are calculated by multiplying NASA estimated large vehicle 
subsystem percentages by the total vehicle dry weight. 

2. Shuttle: subsystem weights are calculated by multiplying shuttle subsystem percentages by the 
total vehicle dry weight. 

3. Small Vehicle: subsystem weights are calculated by multiplying NASA estimated small vehicle 
subsystem percentages by the total vehicle dry weight. 

4. Aircraft: subsystem weights are calculated from the aircraft derived regression equations. 

After distribution selection, each subsystem’s weight percentage of the total vehicle dry weight 
is displayed; the percentages can be modified as long as the total is 100%. Then the actual 
subsystem weights are displayed for each subsystem. Return to the Input Parameter Menu. 

d) Selection number 5 is not applicable for the Preconceptual Mode as this input data is not 
known during this stage of vehicle development. However, the values of the secondary variables 
as calculated from the primary driver variables can be viewed if desired. 

e) Enter 6 to modify the computational factors. Technology Growth Factor may be modified but 
the other factors probably are not known during this stage of vehicle development so they should 
remain as calculated by the program. Return to the Input Parameter Menu. 

f) The mission profile can be input by entering 7. The times are cumulative from launch time 
(time=0) to reentry time. For example, if the vehicle is inserted into orbit at time= 1 and stays 
in orbit for time =70, the orbit completion time occurs at time =71 . After entering the mission 
profile, enter y (yes) at the prompt to update the subsystem operating hours; the hours each 
subsystem operates will equate to the new mission profile. When done, return to the Input 
Parameter Menu. 

g) The subsystem operating hours updated above can be reviewed and also changed by entering 
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8. A subsystem’s hours may need to be changed so they more closely reflect the actual 
operating hours during a mission. For example, the main propulsion subsystem will not operate 
while the vehicle is in orbit so it may be necessary to reduce the orbit time hours to 0. Ground 
processing time must be positive if it is desired to account for maintenance induced and no 
problem found maintenance actions. Return to the Input Parameter Menu. 

h) If the vehicle has duplicate subsystems, enter 9 to update the vehicle’s active redundancy 
configuration. The default settings are 1 subsystem per vehicle (i.e., 1 primary with no 
backups). Certain subsystems can have a k out of n redundancy specified. Return to the Input 
Parameter Menu. 

i) Only select 10 if the vehicle has a liquid booster rocket or external fuel tank (LBR/ET). If 
10 is not selected, the default setting is no LRB/ET. If 10 is selected, enter return twice and 
then enter 1 at the prompt to enter LRB/ET system reliability if LRB/ET is not required. Repeat 
entering return twice and entering 1 to leave this menu. If LRB/ET is required, either the 
subsystem reliabilities can be entered and the program calculates the system reliability or the 
LRB/ET system reliability can be entered directly. Output values are computed interactively and 
displayed as part of the input screen. Reliabilities are combined with the vehicle reliability only 
on the Summary (output) Report. Return to the Input Parameter Menu. 

j) Percent scheduled maintenance (as a percent of the unscheduled maintenance) can be input 
instead of calculated from regression equations by entering 12. If the percent scheduled 
maintenance is changed, it will not be computed by the program. The program automatically 
changes the status of the percent scheduled maintenance parameter to ‘DO NOT RECOMPUTE’ 
as seen in the Compute R&M Parameters Menu selected from the Main Menu. When done, 
return to the Input Parameter Menu. 

k) Enter 13 if nonredundant subsystem reliabilities are to be specified. The program will not 
calculate those nonredundant subsystem reliabilities entered, but will use them in other R&M 
parameter calculations. This feature allows estimation of the effect of improving subsystem 
reliability on the vehicle’s reliability and maintainability. Enter the subsystem number followed 
by 0 to toggle from using the entered value to having the program calculate the reliability . When 
done, return to the Input Parameter Menu. 

l) Return to Main Menu when all inputs complete. 

2) SHUTTLE OR USER INPUT VALUES FOR MTBM AND MTTR... 3 


3 several subsystems do not have aircraft derived parametric equations available and as a result 
SHUTTLE of user specified MTBM and MTTR values must be used. These appear as 
"SHUTTLE ONLY" on the 2nd input screen (SELECT SHUTTLE/ AIRCRAFT). 
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The steps to run the RAM program as described above are repeated below. Steps which are 
different or new so that the shuttle or user input values are used for MTBM and MTTR directly 
instead of calculated are in SMALL CAPS. 


a) Enter 1 to select the subsystems which define your vehicle. For each subsystem that is not 
required, simply enter the number corresponding to the subsystem to toggle from ‘COMPUTE’ 
to ‘DELETE’. If a subsystem has been erroneously deleted, enter the number of that subsystem 
to change ‘DELETE’ to ‘COMPUTE’. This menu has two screens. Enter return when done 
with the first screen to bring up the second screen with the remaining subsystems. When done, 
enter return to go back to the Input Parameter Menu. THE NAME OF A SUBSYSTEM CAN 
BE CHANGED (I.E., CREATE A DIFFERENT SUBSYSTEM) BY ENTERING Y (YES) 
FOLLOWED BY A NEW NAME AT THE PROMPTS. THE TOTAL NUMBER OF 
SUBSYSTEMS MUST NOT EXCEED 33. THE SHUTTLE VALUES FOR MTBM AND 
MTTR, AS DESCRIBED IN B), MUST BE USED FOR ALL RENAMED SUBSYSTEMS 
SINCE THE REGRESSION EQUATIONS WILL NOT BE VALID. IF NO SUBSYSTEM 
NAMES ARE TO BE CHANGED, ENTER N (NO) AND THEN RETURN TO GO BACK TO 
THE INPUT PARAMETER MENU. 

NOTE: Most menus entered from the Input Parameter Menu are two screens. Entering return 
from the first screen will bring up the second screen. Also, you can return to the Input 
Parameter Menu by simply entering return when done inputting data. 

b) ENTER 2. FOR ANY SUBSYSTEM, THE SHUTTLE VALUES FOR MTBM AND MTTR 
(OBTAINED FROM A MARTIN MARIETTA DATABASE) CAN BE USED INSTEAD OF 
THE CALCULATED VALUES BY ENTERING THE NUMBER CORRESPONDING TO 
THAT SUBSYSTEM (‘AIRCRAFT’ WILL CHANGE TO ‘SHUTTLE’). ‘SHUTTLE’ 
SELECTED SUBSYSTEMS WILL BE DISPLAYED IN RED. STEP K BELOW DESCRIBES 
HOW TO CHANGE THE SHUTTLE VALUES FOR MTBM AND MTTR TO USER INPUT 
VALUES. THE MTBM AND MTTR FOR SUBSYSTEMS NOT CHANGED AND ALL 
OTHER R&M PARAMETERS WILL BE CALCULATED BY THE REGRESSION 
EQUATIONS. WHEN DONE, RETURN TO THE INPUT PARAMETER MENU. 

NOTE: IF THE NAME OF A SUBSYSTEM WAS CHANGED IN A), THAT SUBSYSTEM 
MUST USE SHUTTLE (OR USER SPECIFIED) DATA AS THE REGRESSION EQUATIONS 
ARE NO LONGER VALID. 

c) Enter 3 to input the primary driver variables and other system parameters. Enter the values 
for vehicle dry weight, vehicle length and wing span, crew size, number of passengers, and 
number of main engines. THE SPACE ADJUSTMENT TO THE MTBM CALCULATION 
SHOULD BE CHANGED FROM 0 TO 1 (ENTER 6 FOLLOWED BY ENTERING A 1) IF 
THE PROGRAM VALUES FOR SHUTTLE MTBM AND MTTR ARE TO BE CHANGED AS 
DESCRIBED IN STEP K. The remaining parameters should be changed as needed. Refer to 
the Glossary of Terms at the end of this guide or to Chapters 3 and 5 of "Enhanced Methods for 
Determining Operational Capabilities and Support Costs of Proposed Space Systems" for more 
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information. Return to the Input Parameter Menu. 

d) Enter 4 to select the method for determining the subsystem weights. 

1 . Large Vehicle: subsystem weights are calculated by multiplying NASA estimated large vehicle 
subsystem percentages by the total vehicle dry weight. 

2. Shuttle: subsystem weights are calculated multiplying shuttle subsystem percentages by the 
total vehicle dry weight. 

3. Small Vehicle: subsystem weights are calculated by multiplying NASA estimated small vehicle 
subsystem percentages by the total vehicle dry weight. 

4. Aircraft: subsystem weights are calculated from the aircraft derived regression equations. 

After distribution selection, the weight percentages are displayed for each subsystem; the 
percentages can be modified as long as the total is 100%. Then the calculated weights are also 
displayed for each subsystem. Return to the Input Parameter Menu. 

e) Selection number 5 is not applicable for the Preconceptual Mode as this input data is not 
known during this stage of vehicle development. However, the values of the secondary variables 
as calculated from the previous set of inputs can be viewed if desired. These will be updated 
based upon current input values when the user selects "3" on the main menu (COMPUTE R&M 
PARAMETERS). 

f) Enter 6 to modify the computational factors. Technology Growth Factor may be modified but 
the other factors probably are not known during this stage of vehicle development so they should 
remain as calculated by the program. Return to the Input Parameter Menu. 

g) The mission profile can be input by entering 7. The times are cumulative from launch time 
(time=0) to reentry time. For example, if the vehicle is inserted into orbit at time= 1 and stays 
in orbit for time =70, the orbit completion time occurs at time =71 . After entering the mission 
profile, enter y (yes) at the prompt to update the subsystem operating hours; the hours each 
subsystem operates will equate to the new mission profile. When done, return to the Input 
Parameter Menu. 

h) The subsystem operating hours updated above can be reviewed and also changed by entering 
8. A subsystem’s hours may need to be changed so they more closely reflect the actual 
operating hours during a mission. For example, the main propulsion subsystem will not operate 
while the vehicle is in orbit so it may be necessary to reduce the orbit time hours to 0. Return 
to the Input Parameter Menu. 

i) If the vehicle has duplicate subsystems, enter 9 to update the vehicle’s redundancy 
configuration. The default settings are 1 subsystem per vehicle (i.e., 1 primary with no 
backups). Return to the Input Parameter Menu. 

j) Only select 10 if the vehicle has a liquid booster rocket or external fuel tank (LBR/ET). If 
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10 is not selected, the default setting is no LRB/ET. If 10 is selected, enter return twice and 
then enter 1 at the prompt to enter LRB/ET system reliability if LRB/ET is not required. Repeat 
entering return twice and entering 1 to leave this menu. If LRB/ET is required, either the 
subsystem reliabilities can be entered and the program calculates the system reliability or the 
LRB/ET system reliability can be entered directly. Return to the Input Parameter Menu. 

k) FROM THE INPUT PARAMETER MENU, ENTER 1 1 IF THE VALUES FOR SHUTTLE 
MTBM AND MTTR NEED TO BE CHANGED FROM THE DEFAULT VALUES. IF THE 
SHUTTLE MTBM AND MTTR VALUES ARE CHANGED AND THE NEW VALUES DO 
NOT REFLECT OPERATING IN A SPACE ENVIRONMENT, THE SPACE ADJUSTMENT 
FACTOR MUST BE CHANGED FROM 0 TO 1. THE SPACE ADJUSTMENT FACTOR IS 
IN THE PRIMARY SYSTEM PARAMETERS MENU, SELECTION 3 OF THE INPUT 
PARAMETER MENU. SEE C) ABOVE. WHEN DONE, RETURN TO THE INPUT 
PARAMETER MENU. 

l) Percent scheduled maintenance can be input instead of calculated from regression equations 
by entering 12. If the percent scheduled maintenance is changed, it will not be computed by the 
program. The program automatically changes the status of the percent scheduled maintenance 
parameter to ‘DO NOT RECOMPUTE* as seen in the Compute R&M Parameters Menu 
selected from the Main Menu. When done, return to the Input Parameter Menu. 

m) Enter 13 if nonredundant subsystem reliabilities are known. The program will not calculate 
those nonredundant subsystem reliabilities entered, but will use them in other R&M parameter 
calculations. This feature allows estimation of the effect of improving subsystem reliability on 
the vehicle’s reliability and maintainability. Enter the subsystem number followed by 0 to toggle 
from using the entered value to having the program calculate the reliability. When done, return 
to the Input Parameter Menu. 

n) Return to the Main Menu when all inputs are complete. 

4. Enter 3 to compute the R&M parameters with the new input values. The menu lists the status 
of the parameters (critical failure rates, removal rates, crew sizes, percent off-equipment, and 
scheduled maintenance percentage) to be calculated by the program. If any of the computational 
factors or the percent unscheduled maintenance were changed from the Input Parameter Menu, 
the corresponding parameter’s status will be 'DO NOT RECOMPUTE’. A parameter’s status 
can be changed from ‘RECOMPUTE’ to ‘DO NOT RECOMPUTE’ by entering the number 
corresponding to the parameter so that the current value of that parameter is maintained. Enter 
return for the program to recompute the desired R&M parameters. Always recompute the R&M 
parameters after changing the inputs to update all parameter and output values. 

5. The computed R&M parameters can be viewed on the screen by entering 4. Also, the 
calculated performance/specification variables and percentage of scheduled maintenance can be 
read from the Input Parameter Menu (enter 2). The inputs and various output reports can be 
printed by entering 8 from the Main Menu. 
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6. If it would be necessary to run the program again with these same input parameters, enter 5 
from the Main Menu to store them in a file named vehicle name.dat. (The .dat extension is 
appended to the vehicle name automatically by the program.) The current input parameters can 
also be saved when the session is terminated (selection 9 on the Main Menu). The input 
parameter file can be loaded into the program at anytime by entering 1 from the Main Menu and 
then entering the vehicle name (no extension). 

7. Enter 6 if the Life Cycle Costing Model will be used. The required R&M data will be saved 
in a file called vehicle name. cst (the .cst extension is appended to the vehicle name 
automatically by the program) and used as input to the cost model. 

8. Enter 9 from the Main Menu to terminate the current session. The input parameters can be 
saved in a ftle called vehicle name.dat as described in step 6. 
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SCENARIO 2: 


VEHICLE WITH KNOWN SUBSYSTEM WEIGHTS 

To estimate reliability and maintainability (R&M) parameters for space vehicles when the 
subsystem weights are known (i.e. , they will not be calculated from the subsystem weight 
percentages and total vehicle dry weight as for preconceptual vehicles in scenario 1), use 
the RAM program as described below. The primary input the program requires is vehicle 
subsystem weights, vehicle length and wing span, crew size, number of passengers, and 
number of engines. 

All of the steps needed to run the RAM program for Scenario 2 are listed 
below. Those steps which are new or are different from Scenario 1 are in bold. 

1. Enter RAM at the DOS prompt with the applicable path to the storage location of the 
program. 

2. Enter a vehicle name (file name). 

3. The software initializes by default to the Preconceptual Mode. The mode must be changed 

(step l)b or 2)c ) to the Weight-Driven Mode since the subsystem weights will be input 
directly instead of being calculated by the program. The R&M parameters can be 
estimated by vehicle subsystem in two ways: 1) all R&M parameters are calculated 

from the aircraft derived regression equations using the subsystem weights and primary 
driver variables: vehicle length and wing span, crew size, number of passengers, and number 
of main engines, or 2) shuttle or user input values for MTBM and MTTR are used directly (they 
are not calculated) and all other R&M parameters are calculated. The necessary user input for 
each method is described separately below. Enter 2 from the Main Menu to bring up the Input 
Parameter Menu. Within this menu all vehicle, system, and mission parameters will be input. 

1) ALL PARAMETERS TO BE CALCULATED... 

a) Enter 1 to select the subsystems which define your vehicle. For each subsystem that 
is not required, simply enter the number corresponding to the subsystem to toggle from 
‘COMPUTE’ to ‘DELETE*. If a subsystem has been erroneously deleted, enter the 
number of that subsystem to change ‘DELETE’ to ‘COMPUTE’. This menu has two 
screens. Enter return when done with the first screen to bring up the second screen with 
the remaining subsystems. When done, enter return to go back to the Input Parameter 
Menu. Enter n (no) to the prompt to change a subsystem name. (The name of a 
subsystem can be changed as long as the total number of subsystems does not exceed 33. 
Please read section 2) on using shuttle MTBM and MTTR for more information before 
changing a subsystem name.) 

Note: Most menus entered from the Input Parameter Menu are two screens. Entering 
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return from the first screen will bring up the second screen. Also, you can return to the 
Input Parameter Menu by simply entering return when done inputting data. 

b) Enter 3 to input the primary driver variables and other system parameters. Enter the 
values for vehicle length and wing span, crew size, number of passengers, and number 
of main engines. The total vehicle dry weight does not need to be input as the 
subsystem weights will be input directly (step c) and the program will 
automatically update the total vehicle dry weight as the sum of the subsystem 
weights. The space adjustment to the MTBM calculation should be left defaulted at 0. 
The mode is changed (Preconceptual to Weight-Driven) from the second screen of 
the Input Parameter Menu (enter return to bring up the second screen then enter 
16 followed by entering 1). The remaining parameters should be changed as needed. 
Refer to the Glossary of Terms in Appendix A of this guide or to Chapters 3 and 5 of 
“Enhanced Methods for Determining Operational Capabilities and Support Costs of 
Proposed Space Systems" for more information. Return to the Input Parameter Menu. 

c) Enter 4 to input the subsystem weights. The total vehicle dry weight will be 
automatically updated as the subsystem weights are changed. When done entering 
weights, the weight factor can be changed. The weight factor changes the weights 
of the vehicle and each subsystem by the amount entered. For example, if .95 is 
entered for the weight factor the current vehicle and subsystem weights are reduced 
by 5% to 95% of their value. The weights are restored to their previous value by 
entering the inverse of the weight factor (1/.95) as the new weight factor. The 
cumulative weight factor is displayed in the upper left portion of the screen. If .9 
is entered after the .95, the cumulative weight factor is .9x.95 or .855. The 
weights are restored to their previous value by entering the inverse of the last 
weight factor (1/.9). The weights are restored to their original values by entering 
the inverse of the cumulative weight factor (1/.855). 

d) Selection number 5 is not applicable for this mode as this input data is not known 
during this stage of vehicle development. However, the values of the secondary variables 
as calculated from the previous set of inputs can be viewed if desired. These will be 
updated based upon current input values when the user selects "3" on the main menu 

(COMPUTE RAM PARAMETERS). 

e) Enter 6 to input or view the computational factors: technology growth factor, critical 
failure rates, subsystem removal rates, MTBM A MTTR calibration, crew sizes, percent 
off-equipment, and fraction inherent failures. A new technology growth factor value 
might need to be entered, but the other factors are probably not known during this stage 
of vehicle development so they should be calculated by the program. If a factor value 
is entered, the program automatically updates the status of several of the corresponding 
parameter to ‘DO NOT RECOMPUTE’ as seen in the compute RAM parameters menu 
selected from the Main Menu. If one subsystem’s factor value is changed, the program 
will not compute any of the other subsystem values for that factor. Instead, the current 
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values for that factor will be maintained. Those factors not changed will be calculated 
by the program. The values of the computational factors as calculated from the previous 
set of inputs can be viewed within this menu by entering the number corresponding to the 
factor. Enter return to exit without entering factor values (they will be calculated). 
Return to the Input Parameter Menu. 

f) The mission profile can be input by entering 7. The times are cumulative from launch 
time (time=0) to reentry time. For example, if the vehicle is inserted into orbit at 
time = 1 and stays in orbit for time =70, the orbit completion time occurs at time =71 . 
After entering the mission profile, enter Y (yes) at the prompt to update the subsystem 
operating hours; the hours each subsystem operates will equate to the new mission 
profile. When done, return to the Input Parameter Menu. 

g) The subsystem operating hours updated above can be reviewed and also changed by 
entering 8. A subsystem’s hours may need to be changed so they more closely reflect 
the actual operating hours during a mission. For example, the main propulsion subsystem 
will not operate while the vehicle is in orbit so it may be necessary to reduce the orbit 
time hours to 0. A positive ground processing time must be specified in order to account 
for any induced or no trouble found maintenance actions. It is assumed that mission 
failures are inherent equipment failures only. Return to the Input Parameter Menu. 

h) If the vehicle has duplicate subsystems, enter 9 to update the vehicle’s redundancy 
configuration. The default settings are 1 subsystem per vehicle (i.e. , 1 primary with no 
backups). Certain subsystems can have a k out of n redundancy defined. Return to the 
Input Parameter Menu. 

i) Only select 10 if the vehicle has a liquid booster rocket or external fuel tank 
(LBR/ET). If 10 is not selected, the default setting is no LRB/ET. If 10 is selected, 
enter return twice and then enter 1 at the prompt to enter LRB/ET system reliability if 
LRB/ET is not required. Repeat entering return twice and entering 1 to leave this menu. 
If LRB/ET is required, either the subsystem reliabilities can be entered and the program 
calculates the system reliability or the LRB/ET system reliability can be entered directly. 
Return to the Input Parameter Menu. 

j) Percent scheduled maintenance can be input instead of calculated from regression 
equations by entering 12. If the percent scheduled maintenance is changed, it will not 
be computed by the program. The program automatically changes the status of the 
percent scheduled maintenance parameter to 'DO NOT RECOMPUTE’ as seen in the 
Compute R&M Parameters Menu selected from the Main Menu. When done, return to 
the Input Parameter Menu. 

k) Enter 13 if nonredundant subsystem reliabilities are to be specified. The program will 
not calculate those nonredundant subsystem reliabilities entered, but will use them in 
other R&M parameter calculations. This feature allows estimation of the effect of 
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improving subsystem reliability on the vehicle’s reliability and maintainability. Enter the 
subsystem number followed by 0 to toggle from using the entered value to having the 
program calculate the reliability. When done, return to the Input Parameter Menu. 

1) Return to the Main Menu when all inputs are complete. 


2) SHUTTLE OR USER INPUT VALUES FOR MTBM AND MTTR... 4 

The above steps are repeated below with minor variation or additional steps so that the 
shuttle values or user input values for MTBM and MTTR are used directly instead of 
values calculated by the program. The new or modified steps are in SMALL CAPS. 

a) Enter 1 to select the subsystems which define your vehicle. For each subsystem that 
is not required, simply enter the number corresponding to the subsystem to toggle from 
‘COMPUTE’ to 'DELETE. If a subsystem has been incorrectly deleted, enter the 
number of that subsystem to change ‘DELETE’ to ‘COMPUTE’. This menu has two 
screens. Enter return when done with the first screen to bring up the second screen with 
the remaining subsystems. When done, enter return to go back to the Input Parameter 
Menu. THE NAME OF A SUBSYSTEM CAN BE CHANGED (I.E., CREATE A 
DIFFERENT SUBSYSTEM) BY ENTERING Y (YES) FOLLOWED BY A NEW 
NAME AT THE PROMPT. THE TOTAL NUMBER OF SUBSYSTEMS MUST NOT 
EXCEED 33. THE SHUTTLE VALUES FOR MTBM AND MTTR, AS DESCRIBED 
IN B), MUST BE USED FOR ALL RENAMED SUBSYSTEMS SINCE THE 
REGRESSION EQUATIONS WILL NOT BE VALID. IF NO SUBSYSTEM NAMES 
ARE TO BE CHANGED, ENTER N (NO) AND THEN RETURN TO GO BACK TO 
THE INPUT PARAMETER MENU. 


Note: Most menus entered from the Input Parameter Menu are two screens. Entering 
return from the first screen will bring up the second screen. Also, you can return to the 
Input Parameter Menu by simply entering return when done inputting data. 

b) ENTER 2. FOR ANY SUBSYSTEM, THE SHUTTLE VALUES FOR MTBM AND 
MTTR (OBTAINED FROM A MARTIN MARIETTA DATABASE) CAN BE USED 
INSTEAD OF THE CALCULATED VALUES BY ENTERING THE NUMBER 
CORRESPONDING TO THAT SUBSYSTEM (‘AIRCRAFT’ WILL CHANGE TO 
‘SHUTTLE’). ‘SHUTTLE’ SELECTED SUBSYSTEMS WILL BE DISPLAYED IN 
RED. STEP K BELOW DESCRIBES HOW TO CHANGE THE SHUTTLE VALUES 
FOR MTBM AND MTTR TO USER INPUT VALUES (VALUES CAN BE INPUT 


4 several subsystems do not have aircraft derived parametric equations available and as a result 
SHUTTLE of user specified MTBM and MTTR values must be used. These appear as 
"SHUTTLE ONLY" on the 2nd input screen (SELECT SHUTTLE/ AIRCRAFT). 
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ONLY FOR SUBSYSTEMS SET AT ‘SHUTTLE’). THE MTBM AND MTTR FOR 
SUBSYSTEMS NOT CHANGED AND ALL OTHER R&M PARAMETERS WILL BE 
CALCULATED BY THE REGRESSION EQUATIONS. WHEN DONE, RETURN TO 
THE INPUT PARAMETER MENU. 

NOTE: IF THE NAME OF A SUBSYSTEM WAS CHANGED IN A), THAT 
SUBSYSTEM MUST USE SHUTTLE OR USER SPECIFIED DATA AS THE 
REGRESSION EQUATIONS ARE NO LONGER VALID. 

c) Enter 3 to input the primary driver variables and other system parameters. Enter the 
values for vehicle length and wing span, crew size, number of passengers, and 
number of main engines. The total vehicle dry weight does not need to be input 
as the subsystem weights will be input directly (step d) and the program will 
automatically update the total vehicle dry weight as the sum of the subsystem 
weights. THE SPACE ADJUSTMENT TO THE MTBM CALCULATION SHOULD 
BE CHANGED FROM 0 TO 1 (ENTER 6 FOLLOWED BY ENTERING A 1) IF THE 
PROGRAM VALUES FOR SHUTTLE MTBM AND MTTR ARE TO BE CHANGED 
AS DESCRIBED IN STEP K. The mode is changed (Preconceptual to Weight- 
Driven) from the second screen of the Input Parameter Menu; enter return to bring 
up the second screen then enter 16 followed by entering 1. The remaining 
parameters should be changed as needed. Refer to the Glossary of Terms in Appendix 
A of this guide or to Chapters 3 and 5 of “Enhanced Methods for Determining 
Operational Capabilities and Support Costs of Proposed Space Systems” for more 
information. Return to the Input Parameter Menu. 

d) Enter 4 to input the subsystem weights. The total vehicle dry weight will be 
automatically updated as the subsystem weights are changed. When done entering 
weights, the weight factor can be changed. The weight factor changes the weights 
of the vehicle and each subsystem by the amount entered. For example, if .95 is 
entered for the weight factor the current vehicle and subsystem weights are reduced 
by 5% to 95% of their value. The weights are restored to their previous value by 
entering the inverse of the weight factor (1/.95) as the new weight factor. The 
cumulative weight factor is displayed in the upper left portion of the screen. If .9 
is entered after the .95, the cumulative weight factor is .9x.95 or .855. The 
weights are restored to their previous value by entering the inverse of the last 
weight factor (1/.9). The weights are restored to their original values by entering 
the inverse of the cumulative weight factor (1/.855). 

e) Selection number 5 is not applicable for this mode as this input data is not known 
during this stage of vehicle development. However, the values of the secondary variables 
as calculated from the previous set of inputs can be viewed if desired. 

f) Enter 6 to input or view the computational factors: technology growth factor, critical 
failure rates, subsystem removal rates, MTBM & MTTR calibration, crew sizes, percent 
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off-equipment, and fraction inherent failures. A new technology growth factor value 
might need to be entered, but the other factors are probably not known during this stage 
of vehicle development so they should be calculated by the program. If a factor value 
is entered, the program automatically updates the status of the corresponding parameter 
to 'DO NOT RECOMPUTE’ as seen in the compute R&M parameters menu selected 
from the Main Menu. If one subsystem’s factor value is changed, the program will not 
compute any of the other subsystem values for that factor. Instead, the current values for 
that factor will be maintained. Those factors not changed will be calculated by the 
program. The values of the computational factors as calculated from the previous set of 
inputs can be viewed within this menu by entering the number corresponding to the 
factor. Enter return to exit without entering factor values (they will be calculated). 
Return to the Input Parameter Menu. 

g) The mission profile can be input by entering 7. The times are cumulative from launch 
time (time=0) to reentry time. For example, if the vehicle is inserted into orbit at 
time= 1 and stays in orbit for time =70, the orbit completion time occurs at time =71 . 
After entering the mission profile, enter y (yes) at the prompt to update the subsystem 
operating hours; the hours each subsystem operates will equate to the new mission 
profile. When done, return to the Input Parameter Menu. 

h) The subsystem operating hours updated above can be reviewed and also changed by 
entering 8. A subsystem’s hours may need to be changed so they more closely reflect 
the actual operating hours during a mission. For example, the main propulsion subsystem 
will not operate while the vehicle is in orbit so it may be necessary to reduce the orbit 
time hours to 0. Return to the Input Parameter Menu. 

i) If the vehicle has duplicate subsystems, enter 9 to update the vehicle’s redundancy 
configuration. The default settings are 1 subsystem per vehicle (i.e., 1 primary with no 
backups). Return to the Input Parameter Menu. 

j) Only select 10 if the vehicle has a liquid booster rocket or external fuel tank 
(LBR/ET). If 10 is not selected, the default setting is no LRB/ET. If 10 is selected, 
enter return twice and then enter 1 at the prompt to enter LRB/ET system reliability if 
LRB/ET is not required. Repeat entering return twice and entering 1 to leave this menu. 
If LRB/ET is required, either the subsystem reliabilities can be entered and the program 
calculates the system reliability or the LRB/ET system reliability can be entered directly. 
Return to the Input Parameter Menu. 

k) FROM THE INPUT PARAMETER MENU, ENTER 11 IF THE VALUES FOR 
SHUTTLE MTBM AND MTTR NEED TO BE CHANGED FROM THE DEFAULT 
VALUES. IF THE SHUTTLE MTBM AND MTTR VALUES ARE CHANGED AND 
THE NEW VALUES DO NOT REFLECT OPERATING IN A SPACE 
ENVIRONMENT, THE SPACE ADJUSTMENT FACTOR MUST BE CHANGED 
FROM 0 TO 1. THE SPACE ADJUSTMENT FACTOR IS IN THE PRIMARY 
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SYSTEM PARAMETER MENU, SELECTION 3 OF THE INPUT PARAMETER 
MENU. SEE C) ABOVE. WHEN DONE, RETURN TO THE INPUT PARAMETER 
MENU. 

l) Percent scheduled maintenance can be input instead of calculated from regression 
equations by entering 12. If the percent scheduled maintenance is changed, it will not 
be computed by the program. The program automatically changes the status of the 
percent scheduled maintenance parameter to 'DO NOT RECOMPUTE’ as seen in the 
Compute R&M Parameters Menu selected from the Main Menu. When done, return to 
the Input Parameter Menu. 

m) Enter 13 if nonredundant subsystem reliabilities are known. The program will not 
calculate those nonredundant subsystem reliabilities entered, but will use them in other 
R&M parameter calculations. This feature allows estimation of the effect of improving 
subsystem reliability on the vehicle’s reliability and maintainability. Enter the subsystem 
number followed by 0 to toggle from using the entered value to having the program 
calculate the reliability. When done, return to the Input Parameter Menu. 

n) Return to Main Menu when all inputs are complete. 

4. Enter 3 to compute the R&M parameters with the new input values. The menu lists the status 
of the parameters (critical failure rates, removal rates, crew sizes, percent off-equipment, and 
scheduled maintenance percentage) to be calculated by the program. If certain of the 
computational factors or the percent unscheduled maintenance were changed from the Input 
Parameter Menu, the corresponding parameter’s status will be ‘DO NOT RECOMPUTE’. A 
parameter’s status can be changed from 'RECOMPUTE* to 'DO NOT RECOMPUTE’ by 
entering the number corresponding to the parameter so that the current value of that parameter 
is maintained. Enter return for the program to recompute the desired R&M parameters. Always 
recompute the R&M parameters after changing the inputs to update all parameter values. 

5. The computed R&M parameters can be viewed on the screen by entering 4. Also, the 
calculated performance/specification variables and percentage of scheduled maintenance can be 
read from the Input Parameter Menu (enter 2). The inputs and various output reports can be 
printed by entering 8 from the Main Menu. 

6. If it would be necessary to run the program again with these same input parameters, enter 5 
from the Main Menu to store them in a file named vehicle name.dat. (The .dat extension is 
appended to the vehicle name automatically by the program.) The current input parameters can 
also be saved when the session is terminated (selection 9 on the Main Menu). The input 
parameter file can be loaded into the program at anytime by entering 1 from the Main Menu and 
then entering the vehicle name (no extension). 

7. Enter 6 if the Life Cycle Costing Model will be used. The required R&M data will be saved 
in a file called vehicle name.cst (the .cst extension is appended to the vehicle name 


B-14 


automatically by the program) and used as input to the cost model. 


8. Enter 9 from the Main Menu to terminate the current session. The input parameters can be 
saved in a file called vehicle name.dat as described in step 6 prior to returning to the DOS 
prompt. 


SCENARIO 3: 

VEHICLE WITH KNOWN SUBSYSTEM WEIGHTS AND SYSTEM VARIABLES 

The RAM program can calculate reliability and maintainability (R&M) parameters for proposed 
space vehicles during advanced design stages when the subsystem weights and secondary 
variables (fuselage area, fuselage volume, wetted area, number of wheels, number of actuators, 
number of control surfaces, KVA maximum, number of hydraulic subsystems, number of 
internal fuel tanks, total number of avionics subsystems, number of different avionics 
subsystems, BTU cooling, and number of oxidizer tanks are known. The program requires 
vehicle subsystem weights, secondary variable values, vehicle length and wing span, crew size, 
number of passengers, and number of engines as input. 

Only the steps which are different from those in Scenario 2 are listed below! 

3. For both: ALL R&M PARAMETERS TO BE CALCULATED... and ... SHUTTLE 

OR USER INPUT VALUES FOR MTBM AND MTTR. . . 

a) Change the mode (Preconceptual to Weight/Variable-Driven) from the second screen 

of the Input Parameter Menu. 

b) Input the secondary variables by entering 5 from the Input Parameter Menu. None of 
the secondary variables will be calculated in the Weight/Variable-Dnven mode so all 
of them must be input. 

NOTE: If some of the secondary variables are not known, the program can be run in 
the weight-driven mode to initially calculate all of the secondary values. The known 
secondary variables can then be entered. The current values will be maintained for the 
variables not changed provided the mode is changed back to weight/variable driven. 

c) Modify the computational factors: technology growth factor, critical failure rates, 
subsystem removal rates, MTBM & MTTR calibration, crew sizes, and percent off- 
equipment as needed. Recall that if certain factors are changed, they are not computed 
by the program. 


B-15 





APPENDIX C 


RAM Model Source Listing 
File: RAMX.BAS main module - input 

DECLARE SUB SIM () 

DECLARE SUB DRIVER () 

DECLARE SUB OUTFILE () 

DECLARE SUB INFILE () 

DECLARE SUB PCTWGT 0 
DECLARE SUB TECH () 

DECLARE SUB MAIN 0 
DECLARE SUB INMENU Q 
DECLARE SUB PR1VAR 0 
DECLARE SUB COMFAC () 

DECLARE SUB WEIGHT 0 
DECLARE SUB MSN () 

DECLARE SUB CREW 0 
DECLARE SUB CRIT Q 
DECLARE SUB COMREL () 

DECLARE SUB SHUTTLE 0 
DECLARE SUB DISPLAY 0 
DECLARE SUB LC CHILE () 

DECLARE SUB REL Q 
DECLARE SUB COMPM () 

DECIARE SUB REPORT 0 
DECLARE SUB PRINTSUM 0 
DECLARE SUB SUMMARY () 

DECLARE SUB ACWGT () 

DECLARE SUB MANDISPLAY 0 
DECLARE SUB SPAREDISPLAY 0 
DECLARE SUB ABORT Q 
DECIARE SUB SECONDARY 0 
DECLARE SUB MANPWR 0 
DECLARE SUB INIT 0 
DECLARE SUB SPARES () 

DECLARE SUB BOOSTER Q 
DECLARE SUB TURNTIME () 

DECLARE SUB SPACE MTBM 0 
DECLARE SUB POFFEQS 0 
DECLARE SUB REMEQS 0 
DECLARE SUB MAINTDIS 0 
DECLARE SUB EQS Q 
DECLARE SUB REDUNREL 0 
DECLARE SUB RELDISPLAY 0 
10 NASA, LANGLEY RESEARCH CENTER 

20 ’MTBM COMPUTATIONAL MODEL - NASA RESEARCH GRANT - 
30 'DEVELOPED BY C. EBELING, UNIV OF DAYTON 9/10/94 (updtfcd) 

35 ’ ******** COMBINED PRE/CONCEPTUAL MODEL ********** 

40 ' 

50 'SAVE AS "RAMX.BAS* Reliability & Maintainability Model -REVISED 
60 COMMON SHARED YR, B, XI, X2, LF, VR1, VR2, VR3, VR4, VR5, VR, AREM 

66 COMMON SHARED VFMA, TVFMA, SVFMA, CVFMA, OMHMA, OFMHMA, TMA, AMHMA 

67 COMMON SHARED SCHP, VMH, TOMH, TFMH, APF, PI, P2, P3, WAV, FH42, FH44 
6S COMMON SHARED FMAll, FMA12, VNAMJ, ARR, TNR, TS, SKIP 

COMMON SHARED SMP, TMP, VMOH, WGTF, WING, WF, PWF 
COMMON SHARED ETREL, SRBREL, ETS, SRBS, RTTTLES, ABTF$ 

COMMON SHARED STP, STE, MTE, TME, STF, MTF, TMF, Cl 

70 DIM SHARED WBSS05), X(50), NAM$(50), THRS<35), MHMA05), MH(35), MP(35). OMH05), FMH<35) 

71 DIM SHARED SEL$<35), T(10), CP$(9), CA(35), RELF(35), RF(35) 

72 DIM SHARED GOH(35), LOH(35), TOH(35), OOH(35), ROH(35), R(35), TSKT(35), POH(35) 

73 DIM SHARED V(15), SNAM$(15), FMAT(35), FMAC(35), FMAS(35), S(35), SMA(35), SMR(35) 

74 DIM SHARED MW(35), C<35), CM(35), OP*35), TG<35), PWTS<35) 

75 DIM SHARED FMA(35), PF(35), PA(35). RR(35), W(35), NR(35), FR(35) 

76 DIM SHARED NRD<35), K<35), Rl(35), R2(35), R3{35), R4(35), R5(35) 

77 DIM SHARED PWT1(35), PWT2(35), PWT3(35), PWT4<35), SRR(35) 

DIM SHARED ETSUB$(5), ETMBA(5), ETHRS(5), ETABR(5), ETMTR(5), ETR(5), FTCREW(5) 

DIM SHARED SRBSUB$(5), SRBMBA(5), SRBHRS(5), SRBABR(5), SRBMTR(5), SRBR(5), SRBCREW(5) 

DIM SHARED SWBS$(10), MAS<9), MTROS<9), MTRFS(9), REMS(9), SMT(9), SMTF(9), SC<9), FRS(9) 

DIM SHARED PI(33), CZ<9) 

COMMON SHARED PIQ, CZ0 

COMMON SHARED SWBS$0, MAS(), MTROSQ, MTRFS(). REMS0, SMT(), SMTF(), SCO, FRSO 
COMMON SHARED WBS$0. XQ, NAM$0, THRSO, MHMA0, MHO, MPO, OMH0, FMH0 
COMMON SHARED SELSO. TO, CP$0, CAQ, RELFQ, RF() 
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COMMON SHARED GOH(), LOH(), TOH(), OOH(), ROH(), R(), TSKT(). POH() 

COMMON SHARED VQ, SNAMJ(), FMATO, FMACQ, FMAS<), SO, SMA(), SMR() 

COMMON SHARED MW(), C(), CM(), OP$0, TGO, PWTS() 

COMMON SHARED FMAO, PF(), PAO, RRO, WQ, NRO, FRQ 
COMMON SHARED NRD(), KQ, RIO, R2Q, R3(), R4(), R5() 

COMMON SHARED PWTIO, PWT20, PWT30, PWT40, SRR() 

COMMON SHARED ETSUBSO, ETMBA(), ETHRSO, ETABRO, ETMTRO, HTRO, ETCREWQ 
COMMON SHARED SRBSUBJO, SRBMBA(), SRBHRSO, SRBABRQ, SRBMTRO, SRBRO, SRBCREWO 

ERRSUB: ERROR HANDLING ROUTINE 

IF ERR - 53 OR ERR - 61 OR ERR - 71 THEN 
IF ERR - 53 THEN PRINT TILE NOT FOUND’ 

IF ERR - 61 THEN PRINT ’DISK FULL’ 

IF ERR - 71 THEN PRINT ’DISK NOT READY’ 

INPUT ’ENTER RETURN’, RET 
RESUME MAIN ’MAIN MENU 
ELSE 

PRINT "UNRECOVERABLE ERROR’ 

ON ERROR GOTO 0 
END IF 


ON ERROR GOTO ERRSUB 

85 GOSUB 1000 OPENING BANNER 
90 CALL INIT ’INITIALIZATION 

92 CALL MSN ‘INITIALIZE MSN PROFILES 

93 CALL PCTWGT INITIALIZE SUBSYS WEIGHTS 

95 GOSUB 2900 ’CLEAN-UP ADJUST SHUTTLE MTBM 

97 CLS : COLOR 12: LOCATE 10, 20: PRINT "STANDBY INITIALIZING ALL VALUES..." 

98 SKIP - 1 : CALL DRIVER; SKIP - 0 INITIAL COMP 

MAIN: CALL MAIN 

OPEN "TEMPI DAT' FOR OUTPUT AS #1 
OPEN ’TEMPI. CST" FOR OUTPUT AS #2 
WRITE #1, X(l) 

WRITE n , X(2) 

CLOSE 0 1 

close n 

KILL "TEMPI .DAT’ ’remove temp files -cleanup 
KILL ‘TEMPI CST’ 

END 

1000 ’ OPENING BANNER 
1010 KEY OFF: CLS : COLOR 1 1 

1020 LOCATE 6, 15: PRINT 'VEHICLE RE LI ABILITY /MAINTAIN ABILITY MODEL’ 

1030 PRINT : PRINT TAB(20); ’NASA - LANGLEY RESEARCH CENTER’: COLOR 14 
1040 LOCATE 14, 20: INPUT ’ENTER VEHICLE/ FILE NAME’, VNAMJ 
W VNAMS - - THEN VNAMJ - ’NO NAME’ 

IF VNAMJ - ’TEMPI’ THEN PRINT ’INVALID NAME": GOTO 1040 
1045 RETURN 

2900 ’CLEAN UP DURING INITIALIZATION 

2905 FOR I - 19 TO 24: WAV - WAV t W(I): NEXT I 

2910 Y - SMA(I): TW - W(!) / (W(l) + W(2) + W(3)): FR * (I / Y) * TW: SMA(1) = 1 / FR 
2915 TW - W(2) / (W(l) F W(2) + W(3)): FR - (1 / Y) • TW SMA(2) — 1 / FR 

2920 TW - W(3) / (W(l) f W(2) + W(3)): FR - (I / Y) * TW SMA(3) - 1 / FR 

2925 Y - SMA(4): TW - W(4) / (W<4) f W(5)): FR — (1 / Y) * TW: SMA(4) = 1 / FR 
2930 TW - W(5) / (W(4) I- W(5)); FR — (I / Y) * TW : SMA(5) = 1 / FR 

2940 Y - SMA(9) : TW - W(9) / (W(9) F W(18) + W(30) F W(32)): FR — (1 / Y) * TW: SMA(9) - 1 / FR 
Y - SMA(32) 

2945 TW - W(18) / (W(9) + W(18) + W(30) F W(32)): FR - (1 / Y) * TW: SMA(18) — t / FR 

2950 TW - W(30) / (W(9) f W(18) + W(30) + W(32»: FR - (1 / Y) * TW F 1/ SMA(30); SMA(30) = 1 / FR 

2955 TW - W(32) I (W(9) + W(18) + W(30) F W(32)): FR — (1 / Y) * TW; SMA(32) - 1 / FR 

FOR I - 1 TO 33: PWTS{I) = PWT1(I): NEXT I ’ reset weight* from shuttle 
2995 RETURN 

10000 INPUT DATA 
’ WBS 

10005 DATA 1.00 WING GROUP.2 .00 TAIL GROUP, 3. 00 BODY GROUP 

10007 DATA 3.10 TANKS-LOX.3.20 TANKS- LH2,4, 10 IEP-TILES.4.20 IEP-TCS 

10008 DATA 4.30 DEP-PVD 

10010 DATA 5.00 LANDING GEAR, 6.00 PROPULS I ON -MAIN, 7. 00 PROPULS ION -RCS 
10020 DATA 8.00 PROPULSION-OMS.9. 10 POWER-APU.9.20 POWER-BATTERY 
10022 DATA 9.30 POWER-FUEL CELL, 10.00 ELECTRICAL 
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10030 DATA 1 1 00 HYDRAULICS/PNEUMATICS. 12 00 AERO SURF ACTUATORS 

10033 DATA 13.10 AVIONICS-GNAC.13 20 AV-HEALTH MONITOR 

10034 DATA 13.30 AVIONICS-COMM A TRACK. 13.40 AV-D1SPLAYS & CONTR 
1X35 DATA 13.50 AVION ICS- INSTRUMENTS. 13.60 AVIONICS-DATA PROC 
10040 DATA 14.10 ENVIRONMENTAL CONTROL, 14.20 ECS-LIFE SUPPORT 
1X50 DATA 15 X PERSONNEL PROVISIONS, 16. 10 REC & AUX-PARACHUTES 
1X55 DATA 16 20 REC & AUX-ESCAPE SYS. 16 30 REC& AUX-SEP ARATION 
1X56 DATA 16.40 RECAAUX-CROSS FEED 

10060 DATA 16.50 REC & AUX DOCKING SYS, 16.60 RECAAUX MANIPULATOR 


' PRIMARY/SYSTEM VARIABLES 

1 0 1 50 DATA DRY WGT (LBS), LENGTH (FT),CREW SIZE.NBR PASSENGERS 

10152 DATA NBR MAIN ENGINES. ADJ SHUTTLE MTBM-SPACE 0-NO 1-YES.TECHNOIXXIY YR 

10155 DATA DEFAULT ABORT RATE, WIEBULL SHAPE PARAMETER 

10160 DATA LAUNCH FACTOR, AVAIL MAN HRS/ MONTH. FRACTION INDIRECT WORK 

10170 DATA SPARE FILL RATE OBJ.AVG CREW SIZE SCHD MAI NT. PLANNED MISSIONS/YEAR 

10180 DATA MODE INDICATOR .VEHICLE INTEGRATION TIME (DAYS), LAUNCH PAD TIME (DAYS) 

DATA AGGREGATE AVIONICS 0-NG/1- YES. DEFAULT FRACTION OFF MANHRS 

DATA NBR RCS ENGINES, NBR OMS ENGINES, GROWTH CURVE SLOPE, MSN NBR FOR REL GROWTH 
DATA AIR + GND ABORTS-O / AIR ABORTS ! 

’ SECONDARY VARIABLES 

117X DATA FUSELAGE AREA, FUSELAGE VOLUME, WETTED AREA 

11710 DATA NBR WHEELS, NBR ACTUATORS, NBR CONTR SURF ACES. KVA MAX 

1 1720 DATA NBR HYDR SUBSYS.NBR FUEL TANKS (INTERNAL) 

1 1730 DATA TOT NBR AVIONICS SUBSYS 

1 1740 DATA NBR DIFF AVIONICS SUBSYS, BTU COOLING, NBR OXIDIZER TANKS 
1 1750 TECH GROWTH RATES 

11760 DATA .082,. 082,. 082, 0,0,. 082 . 082,. 082,. 033,. Oil,. 011,. Oil 
11765 DATA .056,. 056,. 056,0,. 092,. 056 

11770 DATA 22, .22, 22 , 22,. 22,. 22. 0062, 0062,. 036,. 083,. 083,. 083,. 083,. 083 
11775 DATA .083 

1 1780 ’WGT DISTRIBUTION PERCENT AGES-LARGE VEHICLE 

1 1790 DATA 081, X3,. 174,. 054,. 114,0,. 143,. 008,. 043, 208,. 018,. 019 

11791 DATA 0,.X 1, 007 , 035 

1 1792 DATA 0, 007,.X3,0, 004, X5, X3,.X3,.016,.X5, X8 

11793 DATA .014,. 012, X5 , 007,0,0 

1 1794 ’WGT DISTR - SHUTTLE 

11795 DATA .1,. 017, .277, .015, .017,. 133, .02 , 011, 04,. 131, .02, .019, .006,0 

11796 DATA 007 , 065, 012, 018,. 006.0, 01,. 013..004..X8, 013,-02,. 012,0 

11797 DATA 0,. 006,0,0,0 

1 WGT DISTRIBUTION - SMALL VEHICLE 

DATA .096, 004,. 114,. 01 8. 018,0,. 109,0,. 064,0, 017, .017, .116,. 018,. 014,. 063 
DATA 0,. 009,. 016,. 008,. 01 1,.X7 .0,-027,. 038, 045,. 074 ,.08. XI,. 01,0, .006,0 

1 1810 ’SHUTTLE MTBM’S MAI NT ACTIONS 

11820 DATA .96, 96, .96.8. 31,8.31, .129,3.69, 64.3,9999,21. 06,13.06,40.31 

11825 DATA 7,43.9999,30.07,17 4,5.62,9999,34.41,9999,66.22,34.52,47.2 

11826 DATA 9999,24.47,9999,7.2.9999,9999,15.6,9999,4.85,9999 

11830’ SHUTTLE MTTR VALUES 

DATA 14.5,14.5,14.5,5.47,5.47,11.46,20 15,5.63,12.12,4.02,10.19,8.62,4.37 
11850 DATA 0,16.3,6.41,3.13,12.12,9 91,0,10.88.13.37,4.76,0.9.9.9.9,8.3,0 
11860 DATA 0,7.48,0,12.12,0 

’ SHUTTLE REMOVAL RATES 

DATA. 143, .143, .143,. 216, .216,0073,. 481,391, .219,0,. 159,. 303, .443.0,261 

DATA .088,. 305,. 2 19,. 392,0,. 333,. 466. 482.0,. 293 ..293,. 174 ,0,0,. 257,0,. 2 19,0 
'Fraction inherent falures 

DATA 35,. 35, .36,. 49, .49,. 5, .5,. 5,. 52,. 46,. 46,. 46,. 46,. 46, 46,. 57 , 49,. 47 
DATA .49, .38,. 52,. 5, .55,. 5. .41, .46,. 47, .49, .43, .09,. 5,. 5, .5 

*ET PARAMETERS 

DATA ELECTRICAL, 20. 42, 72,. XI, 13. 68, 4. 5 
DATA PROP- FLUIDS, 4 ,72, XI, 18, 4 5 
DATA RANGE SAFETY.44. 77, 72,. XI ,64.65,4.5 
DATA STRUCTURES,. 0354,1,. XI, 6- 83, 4. 5 
DATA THERM AL-TPS,. 02 19, 1 , XI ,1.55,4.5 

SRB PARAMETERS 

DATA F.LECTR1CAL,35.21,669,.XI,1,4.5 
DATA PROPULSION, 70 ,677, XI, 1,4 5 
DATA RANGE SAFETY, 102 ,677 ,.Xt,l ,4.5 
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DATA STRUCTURES, 75. 667,. 00 1,1, 4 5 


SUB BOOSTER 

6000 ’ ET/ BOOSTER ROCKET MODULE 
6010 CLS COLOR 7 

6020 PRINT TAB(20), ‘EXTERNAL FUEL TANK INPUT DATA’ 

6030 PRINT : COLOR 1 1 

6035 PRINT TAB{1), "NBR" , TAB(5), ’SUBSYSTEM’, TAB(18); "MTBM’, TAB(26), ’OPER HRS’; TAB(36); ’CRIT FAIL RT’; TAB(50); ’MTTR’; TAB(59). ’CREW SIZE’ 
PRINT 

TOR I - 1 TO 5 

PRINT TAB(l); [. TAB(5), ETSUBJO). TAB<18); ETMBA(l); TAB(26), ETHRS(I); TAB(36); ETABR(I). TAB(50); ETMTR(I); TAB(59); ETCREW(I) 

NEXT I 
COLOR 2 

INPUT ’ENTER NUMBER FOR CHANGE ’; NBR 
IF NBR > 5 THEN GOTO 6010 
IF NBR - 0 THEN GOTO COMP 

INPUT ’ENTER NEW PARAMETERS SEPARATED BY COMMAS’, ETMBA(NBR), ETHRS(NBR), ETABR(NBR), ETMTR(NBR), ETCREW(NBR) 

GOTO 6010 

COMP: INPUT ’ENTER SCHD MAINT AS A PCT OF UNSCH MAINT’; ETS 


COLOR 7: ETREL - 1 

PRINT TAB(20), ’COMPUTED’, TAB(40), ’MISSION*. TAB(59); ’MANHR DRIVEN' 

PRINT TAB(l); ’SUBSYSTEM’, TAB(IS); ’ RELIABILITY*, TAB(32); ’UNSCH MANHRS*; TAB{47); ’SCH MANHRS"; TAB(59); ’MANPWR’: PRINT 
COLOR 1 1 : STE - 0: MTE - 0: TME - 0 
FOR I - 1 TO 5 

ETR(I) - EXP(-ETHRS(I) / (ETMBA(l) / ETABR(I))) 

ETREL - ETREL * F.TR(I) 

TE - (ETHRS(I) / ETMBA(I)) * ETMTR(I) * ETCREW(I) 

A3 — (TE + ETS * TE) * X(15) / (12 • X(U) * (1 - X(l2))> 

A3 - INT(A3 f .999) 

TME - TME I A3 

MTE - MTE f ETHRS(I) / ETMBA(I) 

STE - STE * TE 

PRINT TAB(5); ETSUB${]); TAB(20); ETR(I); TAB(32); TE; TAB(47); ETS * TE; TAB(60); A3 
NEXT I 

6036 PRINT COLOR 12 

6050 PRINT TAB{1); ’OVERALL ET *; TAB(20); ETREL; TAB(32); STE, TAB(47); ETS • STE; TAB(GO); TME 
PRINT : COLOR 3: PRINT TAB(2); ’note set reliability- 1 to eliminate subsystem’ 

COIX>R 2 

6070 INPUT ’ENTER NEW RELIABILITY -OR RETURN TO USE COMPUTED*; NBR 
6080 IF NBR > 0 THEN ETREL - NBR 


BAK: CLS : COLOR 7 

PRINT TAB(20); ’LIQUID ROCKET BOOSTER INPUT DATA* 

COLOR 1 1 

PRINT TAB(l); ’NBR*; TAB(5); ’SUBSYSTEM*; TAB(IB); ’MTBM*; TAB(26); ’OPER HRS'; TAB(36); ’CRIT FAIL RT"; TAB{50); ’MTTR’; TAB(59); ’CREW SIZE’ 
PRINT 

FOR 1 - 1 TO 4 

PRINT TAB{1); I; TAB(5); SRBSUB$(D; TAB(18), SRBMBA(I), TAB(26); SRBHRS(I); TAB(36); SRBABR(I); TAB(50); SRBMTR(I), TAB(59); SRBCREW(I) 

NEXT I 

PRINT : COLOR 2 

INPUT ’ENTER NUMBER FOR CHANGE’; NBR 
IF NBR > 4 THEN GOTO BAK 
IF NBR - 0 THEN GOTO COM2 

INPUT "ENTER NEW PARAMETERS SEPARATED BY COMMAS’; SRBMBA(NBR), SRBHRS(NBR), SRBABR(NBR), SRBMTR(NBR), SRBCREW(NBR) 

GOTO BAK 

COM2: INPUT ’ENTER SCHD MAINT AS A PCT OF UNSCH MAINT’; SRBS 
COLOR 7: SRBREL - 1 TMF - 0: MTF — 0: STF = 0 

PRINT TAB(20); ’COMPUTED’; TAB{40); ’MISSION’; TAB<61); ’MANHR DRIVEN’ 

PRINT TAB(l); ’SUBSYSTEM’; TAB<18); ’RELIABILITY*; TAB<32); ’UNSCH MANHRS’; TAB(47); ’SCHED MANHRS"; TAB(61); "MANPWR* PRINT 
COLOR 1 1 
FOR I - 1 TO 4 

SRBR(I) - EXP(-SRBHRS(I) / (SRBMBA(I) / SRBABR(I))) 

SRBREL - SRBREL * SRBR(I) 

TF - (SRBHRS(f) / SRBMBA(I)) * SRBMTR(I) • SRBCREW(I) 

A4 - (TF + TF • SRBS) * X(I5)/ (12 * X(I1) *(1 - X(12))) 

A4 - INT(A4 + .999) 

TMF - TMF f A4 

MTF - MTF t SRBHRS(I) / SRBMBA(I) 

STF - STF f TF 

PRINT TAB(5); SRBSUB$(I); TAB(20), SRBR(I); TAB(32); TF; TAB(47); SRBS * TF, TAB(61); A4 
NEXT I 

PRINT : COLOR 12 

PRINT TAB(l); ’OVERALL LRB\ TAB(20); SRBREL; TAB(32); STF; TAB(47); SRBS * STF; TAB(61); TMF 
PRINT : COLOR 3: PRINT TAB(2); *octe: set reliability — I to eliminate subsystem’ 

PRINT : COLOR 2 

PRINT : INPUT ’ENTER NEW RELIABILITY -OR RETURN TO USE COMPUTED’; NBR 
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IF NBR > 0 THEN SRBRF.L - NBR 


END SUB 
SUB COMFAC 

1 2500 COMPUTATIONAL FACTORS MENU 
12510CLS COLOR 14 

12520 PRINT TAB(I5), 'COMPUTATIONAL FACTORS MENU \ TAB(60); VNAMS 
12530 PRINT 

12540 PRINT TAB( 15), 'NBR* TAB(35); 'SELECTION’ PRINT 
12550 COLOR 3 

12560 PRINT TAB( 15), "1 TECHNOLOGY GROWTH FACTOR' 

12570 PRINT TAB<1 5); ’2 CRITICAL FAILURE RATES' 

12580 PRINT TAB(15); *3 SUBSYSTEM REMOVAL RATES * 

12585 PRINT TAB(15), *4 MTBM/MTTR CALIBRATION ' 

12590 PRINT TAB(I5); '5 CREW SIZES * 

PRINT TABU 5); '6 FRACTION OFF-EQUIP' 

PRINT TAB(15); *7 FRACTION INHERENT FAILURES' 

PRINT : COLOR 2 

12595 PRINT TAB(15); 'return exit to input menu' 

12600 LOCATE 22, 20: INPUT 'ENTER SELECTION'; NB7 
12610 IF NB7 - 1 THEN GOSUB 12400 
12620 IF NB7 - 2 THEN GOSUB 12700 
12630 IF NB7 - 3 THEN GOSUB 12800 
12640 IF NB7 - 4 THEN GOSUB 1200 
12645 IF NB7 5 THEN GOSUB 13800 
IF NB7 - 6 THEN GOSUB PCTOFF 
IF NB7 - 7 THEN GOSUB INF AIL 
12650 IF NB7 - 0 THEN EXIT SUB 
12660 GOTO 12500 

12400 * MENU TO DEFAULT ON TECH GROWTH FACTOR 

12401 IO — 1: IE - 18 
12403 COLOR 7 

12405 CLS : PRINT TAB<25); 'ANNUAL TECHNOLOGY GROWTH FACTOR': PRINT 
12410 PRINT TAB(3); 'NBR SUBSYSTEM'; TAB(45); 'ANNUAL GROWTH RATE- 
12430 FOR I - IO TO IE 

12435 IF OP* I) = 'DELETE' THEN GOTO 12450 

IF SEL*I) - 'SHUTTLE' THEN COLOR 12 ELSE COLOR 1 1 
12440 PRINT TAB<3); I; TAB(10); WBS*0; TAB<45), TG(f) 

12450 NEXT 1 
COLOR 7 

12460 PRINT : INPUT 'ENTER NBR OF SUBSYSTEM TO BE CHANGED - 0 IF NONE'; NBR 

12465 IF NBR > 33 THEN GOTO 12405 

12470 IF NBR - 0 THEN GOTO 12493 

12480 INPUT 'ENTER NEW FACTOR'; TC(NBR) 

1 2490 GOTO 12405 

12493 IF IO - I THEN IO - 19: IE ^ 33: GOTO 12403 
12497 RETURN 

12700 ’CRITICAL FAILURE RATE DISPLAY/UPDATE 

12701 IO - I: IE - 18 
12703 COLOR 7 

12705 CLS : PRINT TAB (5), 'CRITICAL FAILURE RATE - fraction of total maintenance actions' 

PRINT TAB{29); 'resulting in a minion abort* 

12710 IF X(25) - 0 THEN PRINT TAB(3); 'NBR SUBSYSTEM*; TAB<35); 'CRITICAL FAILURE RATE-grnd A air aborts' 
IF X(25) - 1 THEN PRINT TAB<3); 'NBR SUBSYSTEM'; TAB<35); 'CRITICAL FAILURE RATE -air aborts only" 
12730 FOR I - IO TO IE 

12735 IF OP* I) - 'DELETE' THEN GOTO 12750 

IF SEL*I) = 'SHUTTLE' THEN COLOR 12 ELSE COLOR 11 
12740 PRINT TAB<3), I; TAB(10); WBS*I); TAB(45); PA(I) 

12750 NEXT I 
COLOR 7 

12760 PRINT : INPUT 'ENTER NBR OF SUBSYSTEM TO BE CHANGED - 0 IF NONE'; NBR 

12765 IF NBR > 33 THEN GOTO 12705 

12770 IF NBR - 0 THEN GOTO 12793 

12780 INPUT 'ENTER NEW RATE'; PA(NBR) 

CP$(1) - 'DO NOT RECOMPUTE' 

12790 GOTO 12705 

12793 IF IO - 1 THEN IO - 19 IE - 33: GOTO 12703 
12797 RETURN 

12800 ‘REMOVAL RATE DISPLAY/UPDATE 

12801 IO - 1 : IE - 18 
12803 COLOR 7 

12805 CLS : PRINT TAB(5); 'REMOVAL RATE - probability of a removal per mai n t en a nc e action *: PRINT 
12810 PRINT TAB{3), "NBR SUBSYSTEM'; TAB<45); 'REMOVAL RATE' 
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12830 TOR! - 10 TO IF. 

12835 IF OP*I) - ’DELETE* THEN GOTO 12850 

IF SEL$(I) - "SHUTTLE" THEN COIOR 12 ELSE COLOR 1 1 
12840 PRINT TAB(3), I; TAB(IO); WBS$(I); TAB(45); RR<I) 

12850 NEXT I 
COLOR 7 

12860 PRINT INPUT "ENTER NBR OF SUBSYSTEM TO BE CHANGED - 0 IF NONE", NBR 

12865 IF NBR > 33 THEN GOTO 12805 

12870 IF NBR - 0 THEN GOTO 12893 

12880 INPUT ’ENTER NEW RATE"; RR(NBR) 

CP$(2) - "DO NOT RECOMPUTE" 

12890 GOTO 12805 

12893 IF 10 - 1 THEN 10 - 19 IE - 33: GOTO 12803 
12897 RETURN 

PCTOFF: ’PERCENT OFF EQUIPMENT DISPLAY/UPDATE 
10 - 1: IE - 18 
COLOR 7 
BACK1; CLS 

PRINT TAB(5); ’FRACTION OFF EQUIP - fraction of total maintenance manhours’ 

PRINT TAB(5); ’performed off the vehicle - docs not impact vehicle turn time' 

PRINT TAB(3), ’NBR SUBSYSTEM’; TAB(45); "FRACTION OFF-EQUIP* 

FOR I - 10 TO IE 

IF OP$(I) - ’DELETE’ THEN GOTO SKIP! 

IF SEL${[) - ’SHUTTLE’ THEN COLOR 12 ELSE COLOR 11 
PRINT TAB(3); I; TAB(IO), WBSSU); TAB(45); PF(I) 

SK.IP1: NEXT 1 
COLOR 7 

PRINT ; INPUT ’ENTER NBR OF SUBSYSTEM TO BE CHANGED - 0 IF NONE’; NBR 
IF NBR > 33 THEN GOTO PCTOFF 
IF NBR - 0 THEN GOTO SKIP2 
INPUT "ENTER NEW PERCENT'; PF(NBR) 

CP$<4) - ’DO NOT RECOMPUTE’ 

GOTO BACK1 

SKIP2: IE 10 - 1 THEN 10 - 19: IE - 33: GOTO BACKI 
RETURN 


1200 MODULE TO INPUT MOD FACTOR 

1201 10 - 1: IE - 18 

1205 CU5 : COLOR 7: PRINT TAB{20); ’SUBSYSTEM MTBM CALIBRATION FACTOR’ 

1206 PRINT TAB(20); ’Cal V EH- MTBM - CAL FAC x computed MTBM* 

1210 PRINT TAB(3); ’NBR SUBSYSTEM’; TAB(45); ’CAL FACTOR’ 

1230 FOR I - IO TO IE 

IF SEL$(I) - ’SHUTTLE’ THEN COLOR 12 ELSE COLOR 1 1 
1235 IF OP$(I) - "DELETE" THEN GOTO 1250 
1240 PRINT TAB(3); I; TAB<10); WBS$<I); TAB(45); MW([) 

1250 NEXT I 
COLOR 7 

1260 PRINT : INPUT "ENTER NBR OF SUBSYSTEM TO BE CHANGED 0 IF NONE*; NBR 

1265 IF NBR > 33 THEN GOTO 1205 

1270 IF NBR - 0 THEN GOTO 1291 

1280 INPUT ’ENTER NEW FACTOR’; MW(NBR) 

1290 GOTO 1205 

1291 IF IO — 1 THEN IO - 19: IE - 33: GOTO 1205 


12200 ’MODULE TO fNPUT MOD FACTOR FOR MAINTENANCE 

12201 10 - 1: IE - 18 

12202 COLOR 7 

12205 CLS : PRINT TAB{20); ’SUBSYSTEM MH/MA CALIBRATION FACTOR’ 

12206 PRINT TAB(20); ’CAL MH/MA - CAL FAC x computed MH/MA’ COLOR 1 1 
12210 PRINT TAB(3); ’NBR SUBSYSTEM’; TAB{45); *CAL FACTOR’ 

12220 PRINT 

12230 FOR I - 10 TO IE 

IF SEL$(I) - ’SHUTTLE’ THEN COLOR 12 ELSE COLOR 1 1 
12235 IF OPS(I) - "DELETE* THEN GOTO 12250 
12240 PRINT TAB(3); I; TAB(10); WBS$<I); TAB(45); CM(I) 

12250 NEXT I 
COLOR 7 

12260 PRINT INPUT ’ENTER NBR OF SUBSYSTEM TO BE CHANGED 0 IF NONE’; NBR 

12270 IF NBR - 0 THEN GOTO 12293 

12280 INPUT ’ENTER NEW FACTOR*; CM(NBR) 

12290 GOTO 12205 

12293 IF IO - 1 THEN IO - 19: IE - 33: GOTO 12202 
RETURN 

13800 1 DISPLAY/UPDATE SCREEN FOR CREW SIZES 

13801 IO - 1: IE - 18 
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1 3803 COLOR 7 

13805 U-S PRJNT TAB(20). *CREW SJZFS & ASSIGNED CREWS* PRINT 
COLOR 3 PRINT 'note: nbr crews assigned affects turn time only* 

1 3810 PRINT TAB(3), ’NBR SUBSYSTEM*. TAB<35); *AVG CREW SIZE"; TAB(52); ’NBR CREWS ASSIGNED* 

13830 FOR I - lO TO IE 

13835 IF OP*l) - ’DELETE* THEN GOTO 13850 

IE SEl4(l) - “SHUTTLE" THEN COLOR 12 ELSE COIDR 1 1 
13840 PRINT TAB{3); I. TAB(IO). WBS*!); TAB<40); C(l); TAB(55); CA(I) 

13850 NEXT I 
COLOR 7 

13860 PRINT ; INPUT "ENTER NBR OF SUBSYSTEM TO BE CHANGED 0 IE NONE*; NBR 
13865 IE NBR > 33 THEN GOTO 13805 
13870 IF NBR - 0 THEN GOTO 13893 

13880 INPUT ’ENTER NEW CREW SIZE & NBR CREWS ASSIGNED*; C(NBR). CA(NBR) 

IE C(NBR) < 1 THEN C(NBR) - 1 
IF CA(NBR) < ! THEN CA(NBR) - 1 
CP$<3) - 'DO NOT RECOMPUTE* 

13890 GOTO 13805 

13893 IF 10 - l THEN 10 - 19: IE ^ 33 GOTO 13803 
13897 RETURN 

INFAIL ’display /update fraction inherent failures 
10 - l: IF. - 18 
COLOR 7 

BACK2: CLS : PRINT TAB(5); ’FRACTION INHERENT FAILURES - fraction of total maintenance actions* 

PRINT TAB(5), ’resulting from inherent equip failures; used to modify MTBM's to obtain" 

PRINT TAB<5), ‘mission versus ground processing failure rates* 

PRINT TAB(3); 'NBR SUBSYSTEM*; TAB(4 5); ‘FRACTION INHERENT FAILURES* 

FOR I - IO TO IE 

IF OP$(I) - ’DELETE* THEN GOTO SK1P3 

IF SELS(1) - “SHUTTLE* THEN COLOR 12 ELSE COIDR 1 1 

PRINT TAB(3); I; TAB(10); WBS$(I); TAB(45); PI(I) 

SKIP3: NEXT 1 
COLOR 7 

PRINT : INPUT ’ENTER NBR OF SUBSYSTEM TO BE CHANGED - 0 IF NONE*; NBR 

IF NBR > 33 THEN GOTO INFAIL 

IF NBR - 0 THEN GOTO SKJP4 

INPUT * ENTER NEW FRACTION*. PI(NBR) 

GOTO BACK2 

SKIP4; IF IO - 1 THEN 10 - 19: IE - 33 GOTO BACK2 
RETURN 

END SUB 

SUB DRIVER 

1900 'COMPUTATIONAL SEQUENCING MODULE 
IF SKIP - t THEN GOTO 1941 

TOP: CLS : COLOR 11; PRINT TAB(20); ’COMPUTATION SELECTION MENU' 

LOCATE 8, 1 

PRINT TAB{25); ’FACTOR’; TAB(50); ’OPTION- 
PRINT 

PRINT TAB( 15); *1 CRITICAL FAILURE RATES’; TAB(50); CP$(1) 

PRINT TAB( 15), *2 REMOVAL RATES’; TAB(50); CP*2) 

PRINT TAB{15); “3 CREW SIZES*; TAB<50); CP$(3) 

PRINT TAB(15); “4 PERCENT OFF- EQUIP*; TAB<50); CPS<4) 

PRINT TAB( 15); *5 SCHD MA1NT PERCENT* ; TAB(50); CPS(5) 

COLOR 12 

PRINT TAB(IS); *6 CANCEL REQUEST* 

PRINT : COIDR 2 

PRINT TAB(1 3); 'RETURN PROCEED WITH COMPUTATION * 

PRINT 

IF NBR - 6 THEN NBR = 0: EXIT SUB 

COLOR 11: INPUT ’ENTER NUMBER TO CHANGE*; NBR 

IF NBR > 5 OR NBR < 0 THEN GOTO TOP 

IF NBR - 0 THEN GOTO 1940 

IF CP$(NBR) - “RECOMPUTE* THEN CP*NBR) - “DO NOT RECOMPUTE* ELSE CP$(NBR) - “RECOMPUTE* 
GOTO TOP 

1940 as : COt DR 12: LOCATE 12. 22: PRINT ‘COMPUTING RAM PARAMETERS...* 

1941 WAV - 0 

IF X(16) - 0 THEN CALL PCTWGT 

1942 FOR I — 19 TO 24 WAV - WAV + W(I): NEXT 1 
IF X( 16) - 0 OR X(16) - 1 THEN CALL SECONDARY 

IF CP*3) - ’RECOMPUTE* THEN CALL CREW COMPUTE CREW SIZES 
1950 CALL EQS ’REGRESSION MTBF/MHMA UNADJUSTED 

IF CP$<4) - “RECOMPUTE* THEN CALL POFFEQS COMPUTE POFF 
1952 IF CPS(l) - ’RECOMPUTE* THEN CALI ABORT ’CRITICAL FAILURE RATE 
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1953 IF CP$(2) - "RECOMPUTE* THEN CALL RFMEQ5 'REMOVAL RATE 
CALI- TECH 'TECH/growth ADJUSTMENT 
I960 CALL SPACEMTBM 'SPACE ADJUSTMENT 
1965 CALL CRIT CRITICAL FAILURE FMA 

CALL COM PM 'CHECK FOR SPECIFIED RELIABILITIES 
1970 CALL COMREL DETERMINE RELIABILITY 
1975 CALL RF.DUNREL REDUNDANT RELIABILITY 
1980 CALL MANPWR COMPUTE MANPOWER 
1985 CALL SPARES COMPUTE SPARES 

CALL SIM ' A&gegrate parameters for simulation 
END SUB 

SUB INFILE 

1700 MODULE TO READ FROM A FILE 

OPEN ’TEMPI . DAT' FOR OUTPUT AS 02 create temp file 
WRITE § 2 , X(l), X(2), X(3) 

CLOSE #2 

1701 CLS : COLOR 10 

PRINT : PRINT TAB(10), 'RAM INPUT FILES’ PRINT 
FILES ’• DAT- 
PRINT COLOR 1 1 

PRINT TAB(10); "INPUT DATA WILL BE READ FROM VNAM$; ’ DAT- 
PRINT : INPUT ’ENTER RETURN TO PROCEED OR A POSITIVE NBR TO ABORT*, RET 
IF RET > - I THEN EXIT SUB 
1710 OPEN VNAMJ I ’.DAT’ FOR INPUT AS #3 
INPUT #3. DUM, SCHP, WING 
1720 FOR I - 1 TO 33 

1725 INPUT £3, WBSJ<I), W(I), MW(I), CM(I), PWTS(l) 

INPUT #3, C(I), PF(I), PA(I), RR(I), CA(I), RELF(I), RF(I) 

1730 INPUT r3, POH(l), GOH(I). LOH(I), TOH(I). OOH(I). ROH(I) 

1731 INPUT #3, OPS<I), TG(I), NRD(I), K(I), SELS(D, SMA(I), SMR(I) 

1735 NEXT I 

1740 FOR I — 1 TO 15 
1745 INPUT #3, SNAM$(I), V(l) 

1750 NEXT I 

FOR I - I TO 25: INPUT #3, DDM$, X(l): NEXT I 
X(21) - V( 14): X(22) - V(15) 

1755 FORI - 0TO5 
1760 INPUT #3, T(I) 

1765 NEXT I 

INPUT #3, ETREL, STE, F,TS, TME, MTE 
FOR I - I TO 5 

INPUT #3, ETSUB^I), ETMBA(l), ETHRS(I), ETABR(l), ETMTR(l), ETCREW(I) 

NEXT I 

INPUT §3, SRBREL, STF, SRBS, TMF, MTF 
FOR I - 1 TO 4 

INPUT #3, SRBSUBSU), SRBMBA(I), SRBHRS(I), SRBABR(I), SRBMTR(I), SRBCREW(l) 

NEXT I 

1770 CLOSE #3 

1780 PRINT ; PRINT TAB(IO); ’DATA SUCCESSFULLY READ’ 

FOR I — 1 TO 6: CP$(I) - "DO NOT RECOMPUTE’: NEXT I 
YR - X(7): B - X(9>: LF - X(10): XI - X(l): X2 - X(2) F WING 
WF — 1 : PWF - 1 

PRINT : PRINT TAB(10); ’UPDATING OUTPUT VALUES.... STANDBY ..." 

SKIP - 1: CALL DRIVER: SKIP - 0 
PRINT 

INPUT ’DO YOU WISH TO CHANGE VF.HICLE/FILE NAME? - Y/N\ ANSI 

IF ANSS - -Y- OR ANSI - *y’ THEN LOCATE 13, 10: INPUT ’ENTER NEW NAME'; VNAMS 

END SUB 

SUB INIT 

500 ’ INITIALIZATION MODULE 
520 FOR I — 1 TO 33 

525 MW{I) - 1: NRD(I) = 1: K(I) - 1 

526 CM(I) - 1 : W(I) - I: CA(I) - l 

527 OP$(I) - ’COMPUTE’ 

528 SEL$(I) - "AIRCRAFT' 

529 FMAS(I) - 1 : RELF - 0 

530 READ WBSS(I) 

540 NEXT I 

550 SEL$(6) - 'SHUTTLE': SELS(7) - "SHUTTLE’: SEL$(8) -= ’SHUTTLE* 

555 SEL$(15) - 'SHUTTLE' 

560 SEL$(31) - "SHUTTLE’: SEL$(32) - 'SHUTTLE* SEL$(33) = ’SHUTTLE* 

580 FOR I - 1 TO 25 
590 READ NAM$(I) 
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600 NEXT I 

610 FOR 1 — 1 TO 13 

620 READ SNAM$<I) 

630 NEXT 1 

FOR I - 1 TO 6: CPS(I) - 'RECOMPUTE'; NEXT I 
640 FOR I - 1 TO 33; READ TG(I) NEXT FTECH GROWTH RATES 
650 FOR 1 - ! TO 33 READ PWTl(I): NEXT FWGT D1STR PERCE NTS-AMLS (LARGE) 

652 FOR I - 1 TO 33; READ PWT2(I); NEXT I WCT DI5TR PERCENTS- SHUTTIT 

653 FOR 1 - 1 TO 33: READ PWT3(1): NEXT FWGT DISTR PERCENTS-PLSS (SMALL) 
FOR I - t TO 33: PWTS(I) - PWT2(I): NEXT I ' mitalia; wght diatr 

660 FOR [ - l TO 33; READ SMA(I) NEXT 1* SHUTTLE MAINT ACTION MTBM 
665 FOR I - 1 TO 33; READ SMR(l): NEXT 1“ SHUTTLE MTTR 

FOR I - l TO 33: READ SRR(I): NEXT 1* SHUTTLE REMOVAL RATES 
FOR 1 - 1 TO 33 READ Pl(l) NEXT I fnctioo inherent falures 
680 FOR I - 1 TO 5 READ IN ET PARAMETERS 

READ ETSUB$<1), F.TMBA(I), ETHRS(l), ETABR(l), ETMTR(I), ETCREW(I) 

NEXT I 

FOR I - 1 TO 4 READ IN LRB PARAMETERS 

READ SRBSUB$(0, SRBMBA(0, SRBHRS(I), SRBABR(I), SRBMTR(l), SRBCREW(0 
NEXT 1 

690 ’ •*** DEFAULT VALUES ****** 

WF — 1 : PWF - L INITIAL WEIGHT FACTOR 
700 X(I) - 10000! DRY WEIGHT - LBS 
710 X(2) - 70 ’LENGTH ♦ WING SPAN - FT 
WING - 30 ’TEMP WING SPAN 
720 X(3) - 2’CREW SIZE 
730 X(4) - 8’NBR PASSENGERS 
740 X(5) - 3 ’ NBR ENGINES 
NRD(10) - X(5) 

K(10) - X(5) 

X(21) - 2: X(22) - 2 NBR OMS/RCS ENGINES 
NRD(1 1) - 2 K(U) - 2 
NRD(12) - 2: K(12) - 2 

745 X(6) - 0 FLAG FOR SPACE ADJ TO MTBM - SHUTTLE 

750 X(7) - 1996 TECHNOLOGY YR 

760 X(8) - .001 DEFAULT ABORT RATE 

770 X(9) - 28 ’WEIBULL SHAPE PARAMETER 

780 X(L0) - 20 ‘LAUNCH FAILURE RATE FACTOR 

790 X(1 1) - 144 1 AVAIL HRS PER MONTH 

800 X( 12) - .15 PERCENT INDIRECT WORK 

810 X( 1 3) - 95 ’SPARES FILL RATE GOAL 

815 X(14) - 7 ’ AVG CREW SIZE SCHEDULED 

816 X(15) - 12’ PLANNED MSN PER YEAR - CONVERTED TO MOS 

817 X(16) = 0 ' INITIALIZE IN PRECONCEPTUAL MODE 
X(17) - 0 ’INTEGRATION TIME IN DAYS 

X(18) - 1 LAUNCH PAD TIME IN DAYS 
X(19) - 0 DO NOT AGGREGATE AVIONICS 
X(20) - .2 'DEFAULT % OFF MANHRS 
X(23) - .5 ’GROWTH CURVE SLOPE 
X(24) - 1 ’MSN NBR 
X(25) - 0 ’AIR +GRND ABORTS 

818 WGTF - 1 

FTREL - 1 : SRBREL - 1 ’INITIAL ET/SRB RELIABILITIES 
820 T(0) - 2: T(l) - .14; T(2) - 1: T(3) - 71: T(4) = 72: T(5) = 10 
YR - X(7): B - X(9): LF - X(10>: XI - X(l): X2 = X(2) + WING 


F.ND SUB 
SUB INMENU 

300 ’ INPUT PARAMETER MENU ******* 

310 CLS : COLOR 14 

320 PRINT TAB(15); 'NASA LRC - RELIABILITY /MAINT AIN ABILITY MODEL'; TAB<60); VNAMl 
330 PRINT : PRINT TAB(25); 'INPUT PARAMETER MENU': PRINT 
340 PRINT TAB(15); "NBR*; TAB(35); 'SELECTION': PRINT 
345 COLOR 3 

350 PRINT TAB(15); *1 ADD/DELETE A SUBSYSTEM* 

355 PRINT TAB(15); '2 SELECT SHUTTLE/ AIRCRAFT 

360 PRINT TAB(15); “3 UPDATE/DISPLAY PRIMARY SYSTEM PARAMETERS* 

365 PRINT TAB<15); *4 UP DATE/ DISPLAY SUBSYSTEM WEIGHTS' 

370 PRINT TABU 5); *5 UPDATE/DISPLAY SECONDARY VARIABLES' 

385 PRINT TAB(15); *6 COMPUTATIONAL FACTORS MENU" 

390 PRINT TAB(15); *7 UPDATE/DISPLAY MISSION PROFILE- 

395 PRINT TAB(15); *8 UP DATE/ DISPLAY SYSTEM OPERATING HRS* 

400 PRINT TAB(15); *9 UPDATE/ DISPLAY REDUNDANCY CONFIGURATION* 

403 PRINT TAB05); *10 UPDATE/DISPLAY LRB/ET RELIABILITY DATA* 
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405 PRINT TAB(15); "II UPDATE/ DISPLAY SHUTTLE MTBM'S & MTTR’S* 

PRINT TAB(15); "12 CHANGE SCHEDULED MAINTENANCE" 

PRINT TAB<15); *13 ESTABLISH SUBSYSTEM RELIABILITIES' 

407 PRINT TAB(15); "return exit to main menu” 

408 COLOR 14 

410 LOCATE 22, 20: INPUT 'ENTER SELECTION"; NBI 

415 IF NB I - 1 THENGOSUB 12300 

420 IE NBI - 2 THEN GOSUB 14000 

425 IE NBI - 3 THEN CALI. PRIVAR 

430 IF NBI - 4 THEN CALL WEIGHT 

435 IF NBI - 5 THEN GOSUB 1 1000 

445 IF NBI - 6 THEN CALL COM FAC 

450 IF NBI - 7 THEN GOSUB 1600 

455 IF NBI - 8 THEN GOSUB 1300 

460 IF NBI - 9 THEN GOSUB 13000 

463 IF NBI - 10 THEN CALL BOOSTER 

465 IF NBI - 11 THEN CALL 5HUTTU! 

IF NBI - 12 THEN GOSUB UNSCH 
IF NBI - 13 THEN CALL REL 

466 IF NBI - 0 THEN EXIT SUB 
495 GOTO 310 

12300 ’ MENU TO DELETE A SUBSYSTEM 

12301 IO - 1: IF. - 18 

12305 CLS : PRINT TAB(20); 'OPTION TO DELETE/RESTORE A SUBSYSTEM': PRINT 
12310 PRINT TAB(3); 'NBR SUBSYSTEM"; TAB(45), "OPTION* 

12320 PRINT 

12330 FOR l - IO TO IE 

12335 IF OP$(I) - "DELETE" THEN COLOR 4 ELSE COLOR 3 
12340 PRINT TAB{3); I; TAB(IO); WBS$(I); TAB(45), OPS(l) 

12350 NEXT I 
COLOR 7 

12360 PRINT INPUT "ENTER NBR OF SUBSYSTEM TO BE CHANGED - 0 IF NONE*; NBR 
12365 IF NBR > 33 THEN GOTO 12305 
12370 IF NBR < - 0 THEN GOTO 12393 

12380 IF OP$(NBR) - ’COMPUTE' THEN OP$(NBR) - ’DELETE* GOTO 12305 
12385 IF OP$(NBR) - "DELETE" THEN OPS(NBR) - ’COMPUTE* 

12390 GOTO 12305 

12393 IF IO - 1 THEN IO - 19: IE - 33: GOTO 12305 

INPUT "DO YOU WISH TO CHANGE A SUBSYSTEM NAME*; ANSS 

IF ANSS - *Y* OR ANSS - "y" THEN GOTO BO 

RETURN 

B0: IO — 1 : IE - 18 

BI : CLS PRINT TAB(20); 'OPTION TO CHANGE SUBSYSTEM NAME* PRINT 
PRINT TAB<3), 'NBR SUBSYSTEM", TAB(45); 'SELECTION- 
PRINT 

FOR I - IO TO IE 

IF OPS(I) - ’DELETE" THEN COLOR 4 ELSE COLOR 3 
PRINT TAB(3); I; TAB(10); WBS$<I); TAB(45); OPS(I) 

NEXT I 
COLOR 7 

PRINT : INPUT 'ENTER NBR OF SUBSYSTEM FOR NAME CHANGE-0 IF NONE*; NBR 

IF NBR > 33 THEN GOTO Bl 

IF NBR - 0 THEN GOTO B2 

INPUT ‘ENTER NEW WBS/NAME*; WBSS(NBR) 

GOTO Bl 

B2: IF IO - 1 THEN IO - 19: IE - 33 GOTO Bl 
RETURN 

14000 SHUTTLE DATA MODULE 
14005 IO - 1: IE - 18 

14105 ‘ MENU TO SELECT MTBM OPTION 

14106 CI.S : COLOR 7 PRINT TAB{20); 'OPTION TO SELECT AIRCRAFT VS SHUTTLE MTBM’: PRINT 
14110 PRINT TAB<3); ‘NBR SUBSYSTEM*; TAB(45) t ’OPTION’ 

14130 FOR I - IO TO IE 

14135 rF OP$(I) - 'DELETE" THEN GOTO 14150 

14136 IF SEL$<I) - 'SHUTTLE* THEN COLOR 4 ELSE COLOR 3 

14137 IF I - 6 OR I = 7 OR l - 8 OR I - 15 OR I •= 31 OR I - 32 OR I - 33 THEN TNMJ - "SHUTTLE ONLY" ELSE TNM$ - SEL$([) 
14140 PRINT TAB(3); I; TAB(10); WBSS<]); TAB(45>; TNMJ 

14150 NEXT I 
14155 COLOR 7 

14160 PRINT : INPUT 'ENTER NBR OF SUBSYSTEM TO BE CHANGED 0 IF NONE*; NBR 

14165 IF NBR > 33 THEN GOTO 14106 

14166 IF NBR - 6 OR NBR - 7 OR NBR - 8 OR NBR - 15 OR NBR ^ 31 OR NBR - 32 OR NBR - 33 THEN GOTO 14106 
14170 IF NBR - 0 THEN GOTO 14192 

14180 IF SEI4(NBR) ^ ’SHUTTLE’ THEN SEL$(NBR) - "AIRCRAFT* GOTO 14106 
14185 IF SEL$(NBR) - ’AIRCRAFT* THEN SELJ(NBR) - ’SHUTTLE" 
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14190 GOTO 14106 

14192 IP lO - 1 THEN 10 - 19 IF. - 33: GOTO 14106 

14193 COt. OR 7 
14195 RETURN 

1 1000 COLOR 7 CI S PRINT PRINT TAB<5); "SECONDARY INDF.P VARIABLES": PRINT 
11010 PRINT TAB( 10); 'NBR*, TAB(20), ‘VAR1ABTJ1*; TAB(45); "CURRENT VALUE" 

11020 PRINT PRINT ■ COLOR tl 
! 1030 IP V(8) - ' THFN V(8) - 0 
1 1040 FOR 1 - 1 TO 13 

! 1050 PRINT T AB(i0) I. TAB(20); SNAMfcl); TAB(45); V(!) 
i J 060 NEXT J 
1 1061 PRINT : COIOR 7 

11065 IF X(16; - 0 OR X(16> - 1 THEN INPUT "ENTER RETURN RET GOTO 11 100 
1 1070 PRINT : INPUT "ENTER NBR OF VARIABLE TO BE CHANGED 0 IF NONE"; NBR 
1 1075 IF NBR > 16 THFN GOTO 1 1000 

U080 IF NBR < * 0 THEN INPUT "ENTER NEW VALUE"; V^NBR) 

IF NBR < > 0 THFN GOTO 11000 
1 1100 IF V(8) - 0 THFN V(8) - 1 
11110 RETURN 


1600 MODUt F TO ESTABLISH MISSION PROFILE 
1615 CLS : COI OR 7* KEY OFF 
1630 NBR - 0 

1635 l OCATF 3, 25: PRINT "MISSION PROFILE* 

1640 I. OCATF 7, 10 PRINT "NBR"; TAB<50); "TIMF. IN HOURS' COLOR 1 1 

I OCATF 9, 10: PRINT "I"; TAB(20); "GROUND POWER TIME", TAB(55>; T(5) 

1645 LOCATE 1 1, 10: PRINT *2"; TAB(20); "PAD TIME", TAB<55); T (0): COlX>R 7 
1650 LOCATE 13,5 PRINT "LAUNCH TIME AT T-0": COLOR 11 

1655 l -OCATF. 14, 10: PRINT "3"; TAB(20); "POWERED PHASE COMPLETION TIME"; TAB<55); T(l) 
1660 LOCATE 15. 10: PRINT *4", TAB(20); "ORBIT INSERTION TIME"; TAB(55), T(2) 

1665 LOCATE 16, 10: PRINT "5", TAB<20); 'ORBIT COMPLETION TIME", TAB<55); T(3) 

1670 LOCATE 17, 10: PRINT "6"; TAB(20), "REENTRY TIME"; TAB<55); T(4) 

1675 PRINT : PRINT : COLOR 2 

1680 INPUT "ENTER NUMBER TO BE CHANGED OR 0 IF NONE" ; NBR 
1685 IF NBR > 16 THEN GOTO 1635 

IF NBR - 1 THEN INPUT "ENTER NEW GROUND TIME", T(5): GOTO 1635 
1690 IF NBR > 1 THEN NBR - NBR - 2: INPUT "ENTER NEW TIME"; T(NBR): GOTO 1615 

1692 INPUT "DO YOU WISH TO UPDATE SUBSYS OPERATING TIMES Y/N"; asS 

1693 IF anl - "Y" OR anl - "y" THFN CALL MSN 
1607 RETURN 


1300 DISPLAY SUBSYSTEM OPERATING TIMES 


1301 M3 - I: IE - 17 

1303 CLS : PRINT : COLOR 7: PRINT TAB(5), "SUBSYSTEM OPERATING TIMES' 

POH(9) - 1: GOH(9) - 0: LOH<9) - 0: TOH(9) - 0: OQH<9) - 0: ROH(9) - l 

1305 PRINT TAB(1); "TOTAL MISSION TIME"; TAB(2fl); T(4); ’ HRS"; TAB(30); "MAX PAD TIME'; T(0); * HRS' 

1306 PRINT TAB<1) ’NBR SUBSYSTEM". TAB(27), "GND PROCESS'; TAB<39>; "PAD"; TAB(46); "BOOST"; TAB<52); "RETIME", 
1310 PRINT TAB(32), "TIME", TAB<39); "TIME'; TAB(46); "TIME"; TAB(52); "TO-ORBTT"; TAB(6!>; "TIME'; TAB(68); ’TIME' 
1330 FOR I - IO TO IE 


TAB<61); "ORBIT"; TAB(68); "REENTRY" 


IF SEL*i) - "SHUTTLE" THEN COLOR 12 ELSE COLOR 1 1 
IF 1 - 9 AND SILL* I) < > 'SHUTTLE' THEN COLOR 13 
1335 If OP*I) - "DELETE" THFN GOTO 1350 

1340 PRINT TAfl(l); I; TAB<5>; WB5S<1>, TAH(32); PQH(I); TAB(39); GQH(1); TAB<46), LOH(I); TAB(53); TOH(I); TAB(60); OQH(I), TAB(67); ROH(I) 
1350 NEXT! 

COLOR 7 

1360 PRINT : INPUT "ENTER NBR OF SUBSYSTEM TO BE CHANGED - 0 IF NONE"; NBR 


1365 IF NBR > 33 THEN GOTO 1301 
1370 IF NBR - 0 THEN GOTO 1393 

1380 INPUT "ENTER NEW VALUES SEPARATED BY COMMAS'; D6$, D5S, Dll, D2S, D3S, D4$ 
IF D65 - "0" THEN PCH^NBR) - 0 Fi.SE D6 - VAL(D6S) 

IF D5S - "0" THEN GOHtfffiR) - 0 ELSE D5 - VAHOSS) 

IF Dll - "0" THEN LQHOrai) - 0 ELSE Dl - VAL(D1$) 

IF D2$ - "0" THEN TQH(lfflRJ - 0 ELSE D2 - YAL(D2S) 

IF D3S - "0" THFN - 0 ELSE D3 - VAUD3S) 

IF D4$ - "0" THEN ROHiNBR) - 0 ELSE D4 - V ALUMS) 

1381 IF Dl > 0 THEN LOH(NBR) - Dl 

1382 IF D2 > Q THEN TOH(ffflR) - D2 

1383 IF D3 >0 THEN OOH(NBR) - D3 

1 384 IF D4 > 0 THEN ROH(NflR) - D4 

1385 IF D5 > 0 THEN GOH(NBR) - D5 
IF D6 > 0 THEN POH(NBR) - D6 


1390 GOTO 1303 

1393 IF M3 — l THTN IO - 18: IE - 33: GOTO 1303 


1397 RETURN 


13000 RELIABILITY MODULE WITH REDUNDANCY 
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13001 lO - I: IE - 18 

13005 COIX)R 7: CLS : PRINT TAB(25), "SUBSYSTEM REDUNDANCY ': PRINT 

13010 PRINT TAB<1), 'NBR'; TAB(5); 'WBS"; TAB(40); *NBR REDUNDANT SUBSYS*; TAB(65); ’MIN NBR RQD* 

13030 FOR I - 10 TO IE 

13040 IF OPS<I) - •DELETE' THEN GOTO 13090 

13050 IF (1 > - 10 AND 1 < - 15) OR (I > - 19 AND I < - 24) THEN COl£>R 14 

13060 IF (l > - 10 AND I < - 15) OR (I > - 19 AND 1 < - 24) THEN PRINT TAB{1); l; TAB(5); WBS$<I); TAB(40); NRD(I); TAB(65) K(I) GOTO 13090 

13070 COIX)R 1 1 

13080 PRINT TAB(l); 1; TAB(5); WBS$(I); TAB(40); NRD(I) 

1 3090 NEXT I 
COLOR 7 

13100 PRINT : INPUT 'ENTER NBR OF SUBSYS TO BE CHANGED - 0 IF NONE*, NBR 
131 10 IF NBR - 0 THEN GOTO 13173 

13120 IF NBR < 10 OR NBR > 12 THEN INPUT 'ENTER NBR REDUNDANT SUBSYSTEMS- *; NRD(NBR) 

13140 IF NRD(NBR) > 0 AND (NBR - 10 OR NBR - 1 1 OR NBR - 12) THEN INPUT 'ENTER MIN NBR TO OPERATE'; K(NBR) 

13150 IF NRD(NBR) > 0 AND (NBR - 13 OR NBR - 14 OR NBR - 15) THEN INPUT 'ENTER MIN NBR TO OPERATE'; K(NBR) 

13160 IF NRD(NBR) > 0 AND NBR > - 19 AND NBR < - 24 THEN INPUT 'ENTER MIN NBR TO OPERATE'; K(NBR) 

13170 GOTO 13005 

13173 IF IO - 1 THEN IO ^ 19 IE - 33: GOTO 13005 
13177 RETURN 

UNSCH: CLS : COLOR 14 

LOCATE 5, 20: PRINT 'SCHEDULED MAINTENANCE - OPTIONAL INPUT' 

PRINT : PRINT : COLOR 1 1 

PRINT TAB(5); 'SCHEDULED MAINTENANCE IS*. 100 * SCHP; '% OF UNSCHEDULED ON-VEHICLE MAINTENANCE- 
PRINT PRINT TAB{5); 'THIS HAS RESULTED IN', SCHP * TOMH; ' HOURS OF SCHEDULED MAINTENANCE PER MSN" 

IXICATE 15, 20: INPUT 'DO YOU WISH TO CHANGE THIS PERCE NT-(Y/N)*, ANSS: COLOR 15 

IF AN S$ - 'y' OR ANSI - "Y* THEN LOCATE 17, 20: INPUT "ENTER NEW PERCENT"; SCHP ELSE GOTO 2698 

SCHP - SCHP / 100: CP$(5) - 'DO NOT RECOMPUTE" 

PRINT PRINT TAB<5); 'NEW VALUE IS’, SCHP • TOMH; ' HOURS OF SCHEDUI*ED MAINTENANCE- 
PRINT PRINT : COLOR 2: INPUT "ENTER RETURN..'; RET 
2698 RETURN 

END SUB 

SUB LCCFILE 

9500 ’MODULE TO WRITE DATA TO A FILE FOR LCC MODEL - 'name'CST 
OPEN 'TEMPI. CST" FOR OUTPUT AS #2 ’create temp file 
WRITE n, X(l), X(2), X(3) 

C1XJSE n 

9510 CLS : COLOR 11 

PRINT : PRINT TAB(10); "CURRENT INPUT FILES FOR COST MODEL* PRINT 
FILES "*.C5T" 

PRINT : COl£>R 10 

PRINT : PRINT TAB(IO); 'DATA WILL BE SAVED IN FILE ", VNAMJ; '.CST' 

PRINT : INPUT 'ENTER RETURN TO PROCEED ELSE ENTER A POSITIVE NBR', NUM 
IF NUM > 0 THEN EXIT SUB 
’ VEHICLE TURN TIME CALCULATIONS 
TT - 0: TI - 0: TMAX - 0 
SUM - 0: CT - 0: SUMC - 0 
FOR I - 1 TO 33 

IF OP$(I) - 'DELETE* THEN GOTO NZ1 

CT - CT f 1 

SUMC - SUMC X C(I) 

IF SELS([) - "SHUTTLE* THEN TSKT(I) - SMR(I) E1,SE TSKT(I) - (1 - PF(I)) * MHMA(I) / C(l) 

TI - (NRD(I) * (1 - PI(I» * POH(I) / FMAT(l) F THRS<I) / FMAS(I)) * TSKT(I) / CA(I) 

IF TI > TMAX THEN TMAX — TI : J J — I 

TT - TT 4 TI 

SUM = SUM F TSKT(I) 

NZ1: NEXT I 

SCHT - .98 * SCHP • TOMH / X(!4) 
err - TT f SCHT: ATSK - SUM / CT 
IF TMAX < SCHT THEN TMAX - SCHT 

COLOR 14: PRINT ; PRINT TAB<35); 'VEHICLE TURN TIMES": PRINT 
COIX3R 14 

PRINT TAB(35); 'MIN TURN TIME", TAB(55); "MAX TURN TIME- 
PRINT TAB<1); 'ONE SHIFT/DAY MAINTENANCE": COLOR 15 
DVTT - (T(0) F T(4» / 24 + TMAX / 8 F X(17) + X(18) 

MDVTT - (T(0) 4- T(4)) / 24 f (TT f SCHT) / 8 F X(17) F X(18) 

PRINT TAB(5); 'TOT VEHICLE TURNAROUND TIME*; TAB<35); DVTT, 'DAYS'; TAB(55); MDVTT 
PRINT 

COLOR 14: PRINT TAB(I); 'TWO SHIFTS/DAY MAINTENANCE' COLOR 15 
DVTT - (T(0) F T(4)) / 24 F (TMAX) / 16 f X(17) Y X(18) 

MDVTT - (T(0) + T(4)) / 24 X (TT F SCHT) / 16 + X(17) 4 X(18) 

PRINT TAB<5); 'TOT VEHICLE TURNAROUND TIME*; TAB05); DVTT; 'DAYS’, TAB{55); MDVTT 
PRINT 
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COLOR U: PRINT TAB(l); "THREE SHIFTS/DAY MAINTENANCE* COIOR 15 
DVTT - (T(0) * T(4)) i 24 ♦ TMAX / 24 ¥ X(17) ♦ X(18) 

MDVTT - (T(0) f T(4)) i 24 + (TT \ SCHT) / 24 + X(17) ¥ X{18) 

PRINT TAB(5); * TOT VFHIC1X TURNAROUND TIME*; TAB(35); DVTT; -DAYS - ; TAB(55); MDVTT 
PRINT INPUT ‘FNTFR VEHICLE TURNTIME FOR USE IN OAS COSTING MODEL*. VITIM 
9530 OPEN VNAMS f ' CST* FOR OUTPUT AS #1 
WRITE *1, VNAMS 
9540 FOR I - 1 TO 33 

ADI - POH(l) f GOH(l) t lOH(l) t TOH(I) t OOH(I> f ROH(l) 

IF C(I) > MP(I) AND MP(I) > 0 THEN XMP - C(I) ELSE XMP - MP(D 
9550 WRITE #1 . W(l). S(l), XMP, AD 1 , CA(I) 

9555 IL - I 

9560 NEXT I 

9561 WRITE #1. SMP. VTT1M, T(4), TNR 
FOR I - 1 TO 13: WRITE #1. V(l): NEXT I 
FOR I - 1 TO 25: WRITE #1 , X(I): NEXT I 
FOR I - 0 TO 5: WRITE #1, T(I): NEXT I 
WRITE #1, AREM. TMA 

WRITE #1, TME, TMF FT AND LBR MANPOWER 

FOR I - 1 TO 9: WRITE #1 . CZ(l), SC(I): NEXT I 'nbr crews *sgn A avg crew size 
9565 PRINT PRINT TAB(10); 'DATA WRITTEN TO *; VNAMS; ’.CST* 

9570 CLOSE 0\ 

9580 LOCATE 24. 10 INPUT 'ENTER RETURN....'; RET 


END SUB 

SUB MAIN 

100 MAIN MENU 

1 10 CUS COLOR 10 

120 PRINT TAB(15); 'NASA LRC - RELIABILITY/MAINTAINABILITY MODEL* 

130 PRINT : PRINT TAB(25); 'MAIN MENU* PRINT 
135 COLOR 11 

140 PRINT TAB(15); "NBR*. TAB(35); ‘SELECTION* PRINT 

150 PRINT TAB( 15); ‘1 READ INPUT FROM A FILE* 

155 PRINT TAB<15); *2 INPUT PARAMETER MENU- 

159 COLOR 12 

160 PRINT TAB(15); *3 COMPUTE RAM PARAMETERS* 

161 COLOR 11 

165 PRINT TAB(15); '4 SCREEN DISPLAY (OUTPUT) MENU* 

170 PRINT TAB(15); *5 SAVE INPUT PARAMETERS' 

172 PRINT TAB(15); *6 SAVE DATA FOR COST MODEL* 

PRINT TAB(15); *7 CHANGE VEHICLE/FILE NAME* 

PRINT TAB(15); *8 PRINT OUTPUT REPORT(S)* 

175 PRINT TAB<15); *9 TERMINATE SESSION* 

IF X( 1 6) - 0 THEN TNAMS - *P RE CONCEPTUAL MODE* 

IF X(I6) - 1 THEN TNAMS - ‘WEIGHT-DRIVEN MODE' 

IF X(16) - 2 THEN TNAMS - 'WEIGHT A VARIABLE DRIVEN MODE* 

COLOR 14: IOCATE 22, 10: PRINT *YOU ARE CURRENTLY IN THE *; TNAMS 
177 LOCATE 20, 10: COLOR 13: PRINT ‘VEHICLE/ FILE NAME IS *; VNAMS 
180 COLOR 10: LOCATE 17. 20: INPUT 'ENTER SELECTION*; NB0 
190 IF NB0 - l THEN CALL INFILE 
200 IF NB0 - 2 THEN CALL INMENU 
205 IF NB0 - 3 THEN CALL DRIVER 
210 IF NB0 - 4 THEN CALL DISPLAY 
215 IF NB0 - 5 THEN CALL OUTFILE 
217 IF NBQ - 6 THEN CAIX LCCFILE 
IF NB0 - 7 THEN GOSUB CHG 
IF NBO - 8 THEN CALL REPORT 
220 IF NBO - 9 THEN GOTO DONE 
230 GOTO 1 10 


CHG: CI.S COIOR 10 

OPEN 'TEMPI . DAT* FOR OUTPUT AS #2 ’create temp fie 
WRITE #2, X(l), X(2), X(3) 
ciose n 

PRINT : PRINT TAB(10); ‘CURRENT RAM INPUT FILES* PRINT 
FI1XS '•DAT- 

COLOR 1 1 LOCATE 18, 12: PRINT 'CURRENT NAME IS VNAMS 
RT: COLOR 14: LOCATE 20, 12: INPUT ‘ENTER NEW NAME*; VNAMS 
IF VNAMS - ’TEMPI* THEN PRINT ‘INVALID NAME*: GOTO RT 

GOTO 110 

DONE: CLS COLOR 3 

LOCATE 12, 20: INPUT *DO YOU WISH TO SAVE INPUT PARAMETERS? ! Y/N)*, ANSS 

IF ANSS - *Y* OR ANSS - *y* THEN CALL OUTFILE 

PRINT ; COIOR 14: CLS : LOCATE 12, 28: PRINT "SESSION TERMINATED* 
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END sun 


SUB MSN 

900 'INITIALIZE SUBSYSTEM MSN PROFILES 
910 FOR I - 1 TO 33 

920 POH(I) - T(5): GOH(l) - T(0) LOH(I) - T(I) TOH(I) - T(2) - T(l); CX)H(I) - T(3) - T(2): ROH(!) - T(4) - T(3p POH(I) - T(5) 

921 NEXT I 

922 OOH(IO) - 0: ROH(IO) - 0 

POH<9) - i GOH(9) - 0: l.OH(9) - 0: TOH19) - 0 OOH(9) - 0. ROH(9) - 1 
END SUB 


SUB OUTFILE 

9600 MODULE TO WRITE INPUT DATA TO A FILE- 
OPEN ’TEMP1.DAT’ FOR OUTPUT AS #2 create temp file 
WRITE 02, X(l), X(2), X(3) 

CI.OSE 02 


9602 CI-S COLOR 3 

PRINT : PRINT TAB(10); “CURRENT RAM INPUT FILES*: PRINT 
FILES ’’ DAT" 

PRINT : COl-OR 1 1 

PRINT : PRINT TAB(10); “DATA WILL BE WRITTEN TO *, VNAM$; " DAT" 

LOCATE 20, 10: INPUT ’ ENTER RETURN TO PROCEED OR A POSITIVE NBR TO ABORT’; RET 
IF RET > - I THEN EXIT SUB 
9610 OPEN VNAMS f “ DAT’ FOR OUTPUT AS 02 
WRITE 02, DUM, SCHP, WING 
9615 FOR I - 1 TO 33 

9620 WRITE #2, WBS$(I), W(f), MW(|), CM(I), PWTS(I) 

WRITE 02, C(I), PF(I), PA(I), RR([), CA(l), RF.LF(I), RF(I) 

9621 WRITE 02, POH(I), GOH(I), LOH(I), TOH(l), OOH(I), ROH(I) 

9622 WRITE 02, OPS<[), TG(I), NRD(I), K(I), SEL$<I) t SMA(I), SMR(I) 

9625 NEXT I 

V( 14) - X(21): V(15) - X(22) 

9630 FOR I - 1 TO 15 
9635 WRITE 02, SNAMKD, V(l) 

9640 NEXT I 


FOR I - 1 TO 25: WRITE 02, NAM$<I), X(l) NEXT I 
9645 FOR I - 0 TO 5 
9650 WRITE 02, T(l) 

9655 NEXT I 

WRITE 02, ETREL. STE, ETS, TME, MTF. 

FOR I - I TO 5 

WRITE 02, ETSUBSU), ETMBA(I), ETHRS(I), ETABR(I), ETMTR(l), ETCREW(I) 

NEXT I 

WRITE 02, SRBREL, STF, SRBS, TMF, MTF 
FOR 1 - 1 TO 4 

WRITE 02, SRBSUBS(I), SRBMBA(I), SRBHRS(I), SRBABR(I), SRBMTR(I), SRBCREW(I) 
NEXT I 


9690 CLOSE 02 


END SUB 
SUB PCTWGT 

1500 ’MODULE TO COMPUTE SUBSYSTEM WEIGHTS FROM PERCENTS 

1520 TSM - 0 

1530 FOR 1 - I TO 33 

1540 IF OPS(l) - “DELETE" AND PWTS(I) > 0 THEN OP*l) - ’COMPUTE’ 

1545 IF PWTS(I) - 0 THEN OP$<I) ^ “DELETE’ 

1550 TSM - TSM \ PWTS(I) 

1560 NEXT I 
SUM - 0 

IF X(19) - I THEN FOR I - 20 TO 24: OPS<l) = ’DELETE’: SUM - SUM + PWTS(I): PWTS(I) - 0: NEXT I: PWTS(!9) - PWTS(I9) f SUM 
1570 FOR I - 1 TO 33 
1575 ’PWTS(I) - PWTS(I) / TSM 
1580 W(0 - PWTS(I) * XI 
1583 IF W(l) < - 0 THEN W(I) - 1 
1585 NEXT I 
END SUB 

SUB PRIVAR 

1049 PRIMARY VARIABLE MENU 
11 - 1 : 12 - 11 

1050 COI-OR 1 1 : CLS : PRINT TAB(25); ’INPUT MODULE - PRIMARY & SYSTEM VARIABLES’ 

PRINT 
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IF 12 - 20 THEN COLOR 7: PRINT TAB(10); "SYSTEM PARAMETER VALUES (continued)’: PRINT 
1060 PRINT TAB(15); 'NBR*; TAB(2Q); ’VARIABLE"; TAB(55); "CURRENT VALUE" 

1062 PRINT COLOR 7 

1065 IF 11 - l THEN PRINT TAB(10); ’PRIMARY DRIVER VARIABLES' PRINT 
COLOR 14 

1070 FOR I - II TO 12 

1075 IF I - 6 THEN COLOR 7: PRINT PRINT TAB(IO), ’SYSTEM PARAMETER VALUES': PRINT 
COLOR 14 

1080 PRINT TAB( 1 5); I; TAB(20), NAM*I); TAB(55); X(l) 

IF I - 2 THEN PRINT TAB(15); l; TAB(20); 'WING SPAN (FT)’; TAB(55); WING 


COlA)R 13 

1095 IF I - 16 THEN PRINT TAB(20); ’O-PRECONCEPTUAL* 

1096 IF I - 16 THEN PRINT TAB(20); T WEIGHT DRIVEN’ 

1097 IF 1 - 16 THEN PRINT TAB{20); ’2-WEIGHT A VARIABLE DRIVEN’ 

NEXT I 

CO!T)R 2 

1 100 PRINT : INPUT ’ENTER NBR OF VARIABLE TO BE CHANGED - 0 IF NONE", NBR 
IF NBR - 1 AND X(HS) - I OR NBR - 1 AND X{16) - 2 THEN GOTO 1131 
1 110 IF NBR - 0 THEN GOTO 1131 
1 1 15 IF NBR > 23 OR NBR < 0 THEN GOTO 1050 
IF NBR - 6 THEN X(6) - l - X(6): GOTO 1 130 
IF NBR - 19 THEN X(19) - 1 - X(19): GOTO 1130 
IF NBR - 25 THEN X(25) - 1 - X(25): GOTO 1 130 
1 120 IF NBR - 2 THEN INPUT ’ENTER LENGTH. WING SPAN’; X(2). WING ELSE INPUT 
IF NBR - 14 AND X(14) < 1 THEN X(14) - 1 
IF NBR - 5 THEN NRD(10) - X(5) K(10) - X(5) 

IF NBR - 21 THEN NRD(11) - X(21): K(1 1) - X(21) 

IF NBR - 22 THEN NRD(12) - X(22): K(!2) - X(22) 


’ENTER NEW VALUE"; X(NBR) 


1130CLS : GOTO 1050 

1 131 IF II - 1 THEN 11 = 12: 12 - 25 CLS : GOTO 1050 

1135 YR ^ X(7) B - X(9): LF - X(10); XI - X(l) X2 ^ X(2) + WING 

1 140 IF X(16) - 0 THEN CALL PCTWGT 

1145 IF X(16) - 0 OR X(16) - 1 THEN CALL SECONDARY 

IF X|19) - 1 THEN FOR I — 20 TO 24: OP*l) - ’DELETE’: NEXT I 

IF X(19) ^ O THEN WBS$(19) - *13.10 AVION1CS-GNAC’ ELSE WBS$(19) - *13. XX AGGREGATED AVIONICS 


END SUB 


SUB REL 

'MODULE TO ESTABLISH SUBSYSTEM REL1ABILJTIES’ 
lO - 1: IE - 18 

TP REL: Cl-S : COLOR 7 PRINT TAB(20); ’ESTABLISH SUBSYSTEM RELIABILITY’ 

COIXIR 3 

PRINT TAB(10); 'specify nonredundant subsystem reliability at the cod of the mission’ 

PRINT TAB(10); ’enter a tc w reliability to have the system compute a value* 

PRINT 

PRINT TAB(3); *NBR SUBSYSTEM’; TAB(45); ■RELIABILITY- 
PRINT 

FOR I - IO TO IE 

IF SEL*l) - ’SHUTTLE* THEN COLOR 12 ELSE COLOR 1 1 

1F F RELFU) - ^THEr^PRJNT 1 TAB(3L L TAB(10); WBSS(I); TAB(45); ’TO BE COMPUTED* ELSE PRINT TAB(3); 1; TAB(IO); WBS$(1); TAB{45); RF(I) 
NX9; NEXT I 
COlX>R 7 

PRINT INPUT ‘ENTER NBR OF SUBSYSTEM TO BE CHANGED - 0 IF NONE*; NBR 

IF NBR > 33 THEN GOTO TPREL 

IF NBR - 0 THEN GOTO BT10 

INPUT 'ENTER DESIRED RELIABILITY*. RE(NBR) 

IF RF(NBR) > 1 THEN RF(NBR) - 1 

IF RF(NBR) < - 0 THEN RELF(NBR) ^ 0 ELSE RELF(NBR) - l 
GOTO TPREL 

BTI0: IF IO - 1 THEN 10 - 19: IE - 33: GOTO TPREL 


END SUB 
SUB SHUTTLE 

1800 UPDATE/ DISPLAY SHUTTLE PARAMETERS 

1801 IO - 1 : IE - 18 

1805 COI.OR 7; CLS : PRINT TAB(20); ’SHUTTLE MTBM (HRS/MAlNT ACTION) VALUES’ 

PRINT TAB(5); ’Note: all MTBM's should be for a single wbsy^cm* 

1810 PRINT TAB<3); ’NBR SUBSYSTEM’; TAB(45); ’MTBM’ 

1820 FOR I ^ IOTO IE 

1825 IF OP* I) - ’DELETE’ THEN GOTO 1835 

1826 IF SELS(I) - 'SHUTTLE’ THEN COLOR 12 ELSE COLOR 11 

IF 1 — 9 THEN PRINT TAB<3); I; TAB<10); WBS*D; TAB(45); SMA(I); ' MSN/FAILURE* 

IF I - 10 OR 1—11 OR I — 12 THEN PRINT TAB(3); 1; TAB(10); WBS*I), TAB(45); SMA(1); * (single engine)’ 
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1830 IF [ < 9 OR I > 12 THFN PRINT TAB(3); 1; TAB(IO); WBS$(I); TAB(45); SMAN) 

1835 NF.XT I 

1840 COLOR 12 PRINT "NOTE: indjcatcs shuttle value currently in use': COLOR 7 

INPUT 'ENTER NBR OF SUBSYSTEM TO BE CHANCED - 0 IF NONE*; NBR 

1845 IF NBR > 33 THEN GOTO 1805 

1850 IF NBR - 0 THEN GOTO 1865 

1855 INPUT 'ENTER NEW MTBM’; SMA(NBR) 

1860 GOTO 1805 

1865 IF IO - 1 THEN IO - 19 IE - 33: GOTO 1805 

2600 ’UPDATE/DISPLAY SHUTTLE PARAMETERS MTTR 

2601 IO - 1: IE - 18 
2605 COLOR 7 CLS 

PRINT TAB{1), SHUTTLE MTTR VALUES - Note: MTTR is the average repair time in hours’ 

PRINT TAB(l); *to complete a single maintenance action given the corresponding avg crew size" 

2610 PRINT TAB(3); 'NBR SUBSYSTEM"; TAB(45); "MTTR" 

2620 FOR I - IO TO IE 

2625 IF OP$<I) - "DELETE* THEN GOTO 2635 

2626 IF SEL$(D - "SHUTTLE* THEN COIX3R 12 ELSE COLOR II 
2630 PRINT TAB(3); I; TAB(10); WBS$(I); TAB(45); SMR(I) 

2635 NEXT I 

2640 COLOR 12 PRINT "NOTE: indicates shuttle value currently in use*: COl£>R 7 

2641 INPUT "ENTER NBR OF SUBSYSTEM TO BE CHANGED - 0 IF NONE*; NBR 
2645 IE NBR > 33 THEN GOTO 2605 

2650 IF NBR - 0 THEN GOTO 2665 

2655 INPUT "ENTER NEW MTTR"; SMR(NBR) 

2660 GOTO 2605 

2665 IF IO - 1 THEN IO - 19: IE - 33 GOTO 2605 
END SUB 
SUB WEIGHT 

1400 ’ SUBSYSTEM WEIGHT DISPLAY 

1401 IF X(16) - 0 THEN GOSUB 14200 
1403 IO - 1: IE - 18 

1405 WAV - 0: COLOR 7: CLS : PRINT TAB(20); "SUBSYSTEM WEIGHTS" 

1410 PRINT TAB(3), *NBR SUBSYSTEM*, TAB(45); ‘WEIGHT IN LBS* 

COLOR 5 PRINT TAB(10); ‘WEIGHT FACTOR IS CURRENTLY"; PWF: PRINT 

1411 IF X( 16) - 0THEN ADD - XI: GOTO 1430 

1412 ADD - 0: COIX)R 11 

1413 FOR I - 1 TO 33 

1414 IF OP$<l) - "DELETE* THEN W(I) - 1 : GOTO 1416 
W(U - WF * W(I) 

1415 ADD - ADD t W(I) 

1416 NEXT r 
WF - 1 

1417 XI - ADD: X(l) - ADD 
1430 COLOR 11 

FOR I - IO TO IE 

1435 IF OP$(!) - "DELETE" THEN GOTO 1450 

1440 PRINT TAB(3); I; TAB< 10); WBSS(I), TAB(45), W(I) 

1450 NEXT I 

1455 IE 10 - 19 THEN COLOR 14: PRINT : PRINT TAB(3); "TOTAL WGT" ; TAB(45); ADD: PRINT 
COIXJR 7 

1456 IF X(I6) - 0THEN PRINT ; INPUT ’ENTER RETURN RET GOTO 1493 

1460 PRINT : INPUT ’ENTER NBR OF SUBSYSTEM TO BE CHANGED 0 IF NONE*, NBR 

1465 IF NBR > 33 THEN GOTO 1405 

1470 IF NBR - 0 THEN GOTO 1493 

1480 INPUT "ENTER NEW WEIGHT*; W(NBR) 

1490 GOTO 1405 

1493 IF IO — 1 THEN IO - 19: IE - 33: GOTO 1405 

1495 FOR I - 19 TO 24: WAV - WAV f W(I): NEXT 1 

1496 IF X(16) - 1 THEN CALL SECONDARY 
ANSS - *N* 

IE X(16) - 1 OR X(16) - 2 THEN INPUT ‘CHANGE WEIGHT FACTOR (Y/N)*; ANSI 

IP ANSS - "Y* OR ANSS - *y* THEN INPUT "ENTER NEW FACTOR"; WF: PWF - PWF * WF: GOTO 1403 
EXIT SUB 

14200 ’ UPDATE DISPLAY WEIGHT PERCENTS 
14202 GOSUB 14300 

IF WGTF - 1 THEN FOR I - 1 TO 33: PWTS(I) -= PWT1(I): NEXT I 

IF WGTF - 2 THEN FOR I - 1 TO 33: PWTS(I) - PWT2(I): NEXT I 

IF WGTF - 3 THEN FOR I - 1 TO 33: PWTS(I) - PWT3(1): NEXT I 

IF WGTF - 4 THEN CALL ACWGT 

IF WGTF - 4 THEN FOR I - 1 TO 33: PWTS(I) - PWT4(I): NEXT I 

14204 IO - 1: IE - 18 

14205 CIS : COLOR 7: PRINT TAB(25); "WEIGHT PERCENTAGES * 
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14206 PRINT TAB(20), ' PRECONCEPTUAL MODE ONLY": PRINT COLOR 1 1 
IF WGTF - 0 THEN PRINT TAB(40), "CURRENT DISTRIBUTION- 

14207 IF WGTF - I THEN PRINT TAB(40); "DISTR BASED ON LARGE VEHICLE WGTS’ 

14208 IF WGTF - 2 THEN PRINT TAB(40); "DISTR BASED ON SHUTTLE WEIGHTS* 

14209 IF WGTF - 3 THEN PRINT TAB(40), "DISTR BASED ON SMALL VEHICLE WGTS* 

IF WGTF - 4 THEN PRINT TAB(40); *D1STR BASED ON AIRCRAFT WGTS" 

14210 PRINT TAB(3); "NBR SUBSYSTEM"; TAB(45); "PCT OF TOT DRY WGT" 

14214 TPCT - 0 

14215 FOR I - 1 TO 33 

TPCT - TPCT 4 100 • PWTS(l) 

NEXT I 

14230 FOR I - IO TO IE 

14235 ’ IF OP*I) - 'DELETE* THEN GOTO 14250 

IF X(19) - l AND I > 19 AND I < 25 THEN GOTO 14250 

14236 COLOR 3 

14237 TF.MP * Cl NT (, 1000 * PWTS(I)): TEMP - TEMP / 10 
14240 PRINT TAB(3); 1; TAB(lO); WBS$<1); TAB(45); TEMP 
14250 NEXT I 

14255 IF IO - 19 THEN COlX>R 14; PRINT : PRINT TAB(40); 'TOT-*; TPCT 
COLOR 7 

14260 PRINT : INPUT 'ENTER NBR OF SUBSYSTEM TO BE CHANGED - 0 IF NONE'; NBR 

14265 IF NBR > 33 THEN GOTO 14205 

14270 IF NBR - 0 THEN GOTO 14290 

14280 INPUT ‘ENTER NEW PERCENT", PWTS(NBR) 

14285 PWTS(NBR) - PWTS(NBR) / 100: GOTO 14205 
14290 IF IO - 1 THEN IO - 19: IE - 33: GOTO 14205 

IF IO - 19 AND TPCT < 99 9 THEN COLOR 13: PRINT : INPUT "PERCENTS MUST SUM TO 100"; RET: GOTO 14204 
IF IO - 19 AND TPCT > 100 1 THEN COLOR 13: PRINT : INPUT "PERCENTS MUST SUM TO 100"; RET: GOTO 14204 
14293 CALL PCTWGT 
RETURN 

14300 'SELECT WEIGHT DISTRIBUTION 
14310 CLS : COLOR 7 

14320 LOCATE 5, 20: PRINT "SELECT WEIGHT DISTRIBUTION": PRINT : COLOR 11 
14330 PRINT TAB<15); "l - LARGE VEHICLE DISTR" PRINT 
14350 PRINT TAB(15), "2 - SHUTTLE WGT DISTR" PRINT 
14360 PRINT TAB(IS); "3 - SMALL VEHICLE DISTR" PRINT 
PRINT TAB{15); "4- AIRCRAFT WGT DISTR* PRINT 
COLOR 13 

PRINT TAB( 15); 'RETURN - MAINTAIN CURRENT DISTRIBUTION*: PRINT 
COLOR 7 

14370 PRINT : INPUT "SELECT DISTRIBUTION *; WGTF 
14380 IF WGTF < 0 OR WGTF > 4 THEN GOTO 14310 
14390 RETURN 

END SUB 


File: RAM2.BAS display module 


DECLARE SUB AGRT 0 
DEC1-ARE SUB SIMTURN 0 
DECLARE SUB SUMMARY () 

DECLARE SUB MANDISPLAY () 

DECLARE SUB SPAREDISPLAY () 

DECLARE SUB TURNTIME () 

DECLARE SUB MAINTD1S 0 
DECLARE SUB RE L DISPLAY 0 

NASA, LANOIT.Y RESEARCH CENTER 

MTBM COMPUTATIONAL MODEL NASA RESEARCH GRANT 
DEVELOPED BY C. EBEUNG, UNJV OF DAYTON 6/17/94 (updated) 

* **•**•*• COMBINED PRE/CONCEPTUAL MODEL —******* 

SAVE AS "RAM2.BAS" Maw Time Between Maintenance -REVISED 

COMMON SHARED YR, B, XI. X2. LF, VR1, VR2, VR3, VR4, VR5, VR, AREM 

COMMON SHARED VFMA, TYFMA, SVFMA, CVFMA, OMHMA, OFMHMA, TMA, AMHMA 

COMMON SHARED SCHP, VMH, TOMH, TFMH, APF, PI, P2, P3, WAV, FH42, FH44 

COMMON SHARED FMA11, FMA12, VNAM$, ARR, TNR, TS, SKIP 

COMMON SHARED SMP, TMP, VMOH, WGTF, WING, WF, PWF 

COMMON SHARED ETREL, SRBREL, ETS, SRBS, RTTFLEl, ABTF$ 

COMMON SHARED STP, STE, MTE, TME, STF, MTF, TMF, Cl 

DIM SHARED WBS$05), X(50). NAMJ<50), THRS05), MHMA(35), MH(35), MP(35), OMH(35), FMH(35) 
DIM SHARED SEL$(35), T(10), CP$(9), CA(35), RELF(35), RF(35) 

DIM SHARED GOH(35), LOH(35), TOH(35), OOH(35), ROH(35), R(35), TSKT(35), POH(35) 

DIM SHARED V(15), SNAMS(I5), FMAT(35), FMAC(35), FMAS(35), S(35), SMA(35), SMR(35) 
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DIM SHARED MW(35), Q35), CM(35), OP${35), TG(35). PWTS(35) 

DIM SHARED EMA(35), PF<35), PA(35), RR(35), W(35), NR(3S), FR(35) 

DIM SHARED NRD(35). K(35), R ! (35), R2(35), R3(35), R4(35), R5(35> 

DIM SHARED PWT1(35), PWT2(35), PWT3(35), PWT4(35), SRR(35) 

DIM SHARED ETSUB|(5), ETMBA(5), ETHRS(5), ETABR(5), ETMTR{5), ETR(5), ETCREW(5) 

DIM SHARED SRB5UBS0), SRBMBA(5), SRBHRS(5), SRBABR{5), SRBMTR(5), SRBR(5), SRBCREW(5) 

DIM SHARED SWBS*IO), MAS(9), MTROS(9). MTRES<9), REMS(9), SMT(9), SMTF(9), SC(9) FRS(9) 

DIM SHARED Pl(33), CZ<9) 

COMMON SHARED PI(), CZ() 

COMMON SHARED SWBS*), MAS(), MTROS(), MTRFS(), REMS(), SMTO, SMTEQ, SC(), FRS() 

COMMON SHARED WBS$0, XQ. NAMS<), THRS(), MHMAO, MHO, MPO, OMH0, FMHQ 
COMMON SHARED SE1*), T(). CP*), CA(), RELF(), RF() 

COMMON SHARED OOHO, COHO, TOHO, OOH(), ROH(), RO, TSKTO , POH() 

COMMON SHARED V(), SNAM*), FMATO, FMACQ. FMASQ, SQ, SMA(), SMRQ 
COMMON SHARED MWO, CO, CMO, OP*), TOO, PWTSO 
COMMON SHARED FMAO, PFQ, PA(), RR(), W(). NR(), FR() 

COMMON SHARED NR DO, KQ, RIO, R2(), R30, R*), R5Q 
COMMON SHARED PWTIO, PWT2(), PWT30. PWT4Q, SRRO 

COMMON SHARED ETSUB*), ETMBAQ, ETHRSO, ETABRO. ETMTRO, ETRO, ETCREWO 
COMMON SHARED SRBSUB*), SRBMBAQ, SRBHRS(), SRBABRO, SRBMTR(), SRBRQ. SRBCREW() 

SUB AGRT 

***** MODULE FOR AGGREGATED RESULTS ****** 

SWBS* 1 ) - "Structural’: SWBS*2) - "Fuel/Oxid Tanks": SWBS*3) - "Thermal/Tiles": SWBS*4) - "Propulsion" 
SWBS*5) - "Power/Electrical " : SWBS*6) - "Mechanical Sys": SWBS*7) = "Avionics": SWBS*8) - "ECS/Life Support" 
SWBS*9) - "Auxiliary Systems’ 

CLS : COLOR 14 

PRINT TAB(5); "Aggregated System Report - System Aggregation - page 1": COLOR 1 1 

PRINT TAB(l); "VEHICLE IS VNAMS; TAB<35), "DATE: "; DATES; TAB(60); "TIME; TIMES 

PRINT TAB(l); "SYSTEM"; TAB(30); "SYSTEM"; TAB(50), "SYSTEM": COLOR 7 

PRINT TAB(l), SWBS$(1); TAB(30); SWBS*2); TAB<50), SWBS*9) COLOR 13 

FOR I - 1 TO 2: PRINT TAB(3); WBS*I); TAB(3I); WBS*I f 3); TAB<52); WBS*I + 29): NEXT I 

PRINT TAB(3); WBS*3); TAB<52); WBS*32): COLOR 7 

PRINT TAB(l); SWBS*3); TAB(30); SWBS*4), : COLOR 13: PRINT TAB{52); WBS*33) 

FOR I - 6 TO 8: PRINT TAB(3); WBS*I); TAB(3l); WBS*I f 4): NEXT I: COLOR 7 
PRINT TAB(l); SWBS*5); TAB(30); SWBS*6): COLOR 13 
FOR I - 13 TO 14: PRINT TAB(3); WBS*0; TAB(31); WBS*I 4- 4): NEXT I 
PRINT TAB(3); WBS*15); TAB(3I); WBS*9) 

PRINT TAB<3); WBS*16): COLOR 7 

PRINT TAB(l); SWBS*7); TAB(30); SWBS*8): COLOR 13 

FOR I - 19 TO 23: PRINT TAB(3); WBS*I); TAB(33); WBS*I 4 6): NEXT I 

PRINT TAB(3); WBS*24) 


COLOR 2: INPUT "ENTER RETURN RET 
CI^ ; COLOR 14 

PRINT TAB(25); "Aggregated System Report - page 2": PRINT 

PRINT TAB(1); "VEHICLE IS *; VNAMS; TAB(35); "DATE: ", DATES, TAB<60); "TIME: ", TIMES 
COLOR 2 

PRINT : PRINT TAB(2); "Aggregated"; TAB(20); "Nbr of"; TAB(35); ‘On-Veh MTTR"; TAB(50); "On-Veh Sched"; TAB(65); 'Ave Crew’ 
PRINT TAB(2); "System"; TAB(20); "Maint Actions"; TAB(35); "per MA (hn)’, TAB(48); "maint time(hn)"; TAB(65); "Sire" 

PRINT : COlX)R 12 
TO - 0: Tl - 0: T2 - 0 
FOR 1 - 1 TO 9 
TO - TO f MAS(I) 

T1 — TI 4 MTROS(I): T2 - T2 f SMT(I): T3 - T3 f SC(I) 

IE MAS(I) > 0 THEN 
NC - NC f 1 

PRINT TAB(l); SWBS*I); TAB(20); MAS(I); TAB(35); MTROS(I); TAB(50); SMT(I); TAB(65); SC(I) 

END IF 
NEXT I 
PRINT 

PRINT TAB(2); "Total"; TAB(20); TO; TAB(35), TI; TAB(50); T2; TAB<65); T3 

PRINT TAB(2); "Average"; TAB<20); TO / NC; TAB(35); TI / NC; TAB(50); T2 / NC; TAB(65); T3 / NC 

PRINT ; COLOR 7: PRINT "note: MTTR’s & sched maint times assume the Avg Crew Sire and are baaed* 

PRINT 'upon a weighted avg (wtsfracboo of total failures) of each subsystem. " 

COLOR 2: PRINT ; INPUT "ENTER RETURN ...*; RET 

CIvS : COIX)R 14 

PRINT TAB(25); "Aggregated System Report page 3": PRINT 

PRINT TAB(l); "VEHICLE IS *; VNAMS; TAB<35); "DATE: DATES, TAB(60); "TIME: TIMES 

COLOR 2 

PRINT : PRINT TAB(2); "Aggregated"; TAB(20); "Removal"; TAB(35); "Off-Veh MTTR"; TAB(50); "Off Veh Sched"; TAB(65); "Nbr Crews* 
PRINT TAB(2); "System"; TAB{20); "Rate"; TAB(35), 'in bours"; TAB(48), "maint time(hrs)’; TAB<65); "Assigned" 

PRINT : COIX)R 12 

TO - 0: TI - 0: T2 - 0: T3 - 0 
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FOR I - 1 TO 9 
TO - TO 4 RFMS(l) 

Tl - Tl 4 MTRFS(!) T2 - T2 4 SMTF(l) T3 - T3 4 CZ([) 

IF MAS(l) > 0 THEN PRINT TAB(l); SWBSSU), TAB(20), REMS(I); TAB(35); MTRFS(l); TAB(50), SMTF(I); TAB(65); CZ(I) 

NEXT I 

PRINT 

PRINT TAB(2); ‘Total*; TAB(35), T i ; TAB{50), T2, TAB(65); T3 

PRINT TAB<2), "Average'; TAB(20); TO / NC, TAB(35), Tl / NC, TAB{50); T2 / NC, TAB(65); T3 / NC 
PRINT COLOR 7: PRINT 'note MTTR’s & sc bed maint times assume the Avg Crew Size and arc based' 

PRINT 'upon a weighted avg (wts~ fraction of total failures) of each subsystem." 


COLOR 2: PRINT INPUT 'ENTER RETURN RET 


EXIT SUB 

IF (MAS(8) * MTROS(8) ♦ SMT(8)) / CZ(8) > (MAS(6) * MTROS(6) 4 SMT(6)) / CZ(6) THF.N Z - (MAS(8) * MTROS(8) I SMT(8)) / CZ(8) F.LSF. Z - (MAS(6) * MTROS(6) 
4 SMT(6)) / CZ<6) 

IF 7 < (M AS(4) • MTROS(4) f SMT(4)) ( CZ(4) THEN Z ^ (MAS(4) • MTROS(4) F SMT(4)> i CZ(4) 

IF (MAS(l) * MTROS(l) 4 SMT(l)) / CZ(l) 4 (MAS(3) * MTROS(3) F SMT(3)) / CZ(3) > (MAS<5) * MTROS0) f SMT(5)) / CZ(S) F (MAS(7) • MTROS(7) f SMT(7)> / CZ(7) 
l Z THF.N 

Y - (MAS(l) • MTROS(I) 4 SMT(l)) / CZ(!) 4 (MAS(3) * MTROS(3) F SMT(3)) / CZ(3) 

ELSE 

Y - (MAS(S) * MTROS(5) I SMT(5» l CZ{5) F (MAS(7) • MTROS(7) F SMT(7)) f CZ(7) F Z 

IfT < (MAS(2) • MTROS(2) ♦ SMT(2)) t CZ(2) 4 (MAS(9) * MTROS(9) 4 SMT(9» / CZ(9) THF.N Y - (MAS(2) * MTROS(2) F SMT(2)) / CZ(2) 4 (MAS(9) • MTROS(9) 4 
SMT(9)) / CZ(9) 

Cl-S COLOR 15 

PRINT TAB(25); 'Simulated system report * page 3* 

COLOR 7: PRINT ‘note: Turntiines arc baaed on an assumed series/ parallel maintenance process' 

COLOR 13: PRINT TAB(5); 'CATEGORY'; TAB{52); * TURN TIMES* COLOR 14 
PRINT TAB(5); 'UNSCHED/SCHF.D MA1NT TIME"; TAB<55); Y; ‘HRS' 

PRINT TAB(5); 'INTEGRATION TIME"; TAB(55); X(17); 'DAYS' 

PRINT TAB(5); ‘LAUNCH PAD TIME'; TAB<55). X(IS); 'DAYS* 

PRINT TAB(5); 'MISSION TIME -INC GRND TIME*; TAB(55); T(0) 4 T(4); 'HRS' 

VTT - T(0) F T(4) F Y F X(17) • 24 F X(18) * 24: COLOR 12 

PRINT TAB(5); "TOT VEHICLE TURNAROUND TIME'; TAB(55); VTT; "TOTAL HRS' 

COLOR 7: PRINT TAB(1); "ONE SHIFT/DAY MAINTENANCE*: COLOR 14 
DVTT - <T(0) 4 T(4)) / 24 F Y / 8 4 X(I7) 4 X(18) 

PRINT TAB(5); "TOT VEHICLE TURNAROUND TIME"; TAB<55), DVTT; "DAYS" 

PRINT TAB(5); 'AVG MISSIONS/YR/VEH1CLE*; TAB(55); 12 * 21 / DVTT 

PRINT TAB(5); 'COMPUTED FLEET SIZE TAB(55); INT((X(15) / 12) / (21 / DVTT) 4 .99) 

COiOR 7: PRINT TAB(l); 'TWO SHIFTS/ DAY MAINTENANCE': COLOR 14 
DVTT - (T(0) 4 T<4» / 24 4 Y / 16 f X(17) 4 X(18) 

PRINT TAB(5); "TOT VEHICLE TURNAROUND TIME'; TAB(55); DVTT, 'DAYS' 

PRINT TAB(5); *AVG MISSIONS/YR/VEH1CLE', TAB(55); 12*21/ DVTT 

PRINT TAB(5), 'COMPUTED FLEET SIZE '; TAB(55); INT((X(15) / 12) / (21 / DVTT) 4 .99) 

COIOR 7: PRINT TAB(l); 'THREE SHIFTS/ DAY MAINTENANCE': COLOR 14 
DVTT - (T(0) 4 T(4)) / 24 4 Y / 24 4 X(17) 4 X(18) 

PRINT TAB(5), "TOT VEHICLE TURNAROUND TIME", TAB(55), DVTT; 'DAYS* 

PRINT TAB(5); 'AVG M ISS I ONS/YR/ VEHICLE*; TAB(55); 12 * 21 / DVTT 

PRINT TAB(5); "COMPUTED FLEET SIZE "; TAB(55); INT((X(15) / 12) / (21 / DVTO * 99) 

COIOR 3 

PRINT TAB(5); 'NOTE assumes 8 hr shift, and 21 work days a month " 

COIOR 2 

INPUT 'RNTER RETURN RET 


END SUB 

SUB DISPLAY 
5800 DISPLAY MENU 
5810 CLS : COLOR 11 

5815 PRINT TAB(1 5); 'NASA LRC - RELiABILITY/MAINTAJNABILITY MODEL'; TAB(60); VNAMS 
5820 PRINT : PRINT TAB<22); 'SCREEN DISPLAY (OUTPUT) MENU*: PRINT COLOR 15 
5830 PRINT TAB( 15); *NBR'; TAB(35); ‘SELECTION*: PRINT 

5835 PRINT TAB(15); '1 RELIABILITY REPORT’ 

5840 PRINT TAB(!5); '2 MAINTAINABILITY REPORT* 

5850 PRINT TAB<15); *3 MANPOWER REQUIREMENTS" 

5860 PRINT TAB(15); *4 SPARES REQUIREMENTS* 

5870 PRINT TAB(IS); '5 VEHICLE TURN TIME REPORT' 

PRINT TAB(15); '6 SYSTEM PERFORMANCE SUMMARY' 

PRINT TAB(15); *7 AGGREGATED SYSTEM REPORT' 

5880 PRINT TAB(15); 'return exit to main menu" 

COLOR 2 

5890 LOCATE 20, 20: INPUT 'ENTER SELECTION*; NB3 
5900 IF NB3 - 1 THEN CALL RELD1SPLAY 
5910 IF NB3 - 2 THEN CALL MAINTDIS 
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5920 IF NB3 - 3 THF.N CALL MANDISPLAY 
5930 IF NB3 - 4 THEN CALL SPARF.DISPLAY 
5940 IF NB3 - 5 THF.N CALL TURNT1MF. 

IF NB3 - 6 THEN CALI. SUMMARY 
IF NB3 - 7 THF.N CALL AGRT 
5950 IF NB3 - 0 THEN EXIT SUB 
5960 GOTO 5810 

END SUB 

SUB MAINTDIS 

7500 ' DISPLAY MODULE FOR MAINTAINABILITY REPORT 
X - 0: Y - 0: 7. - 0: K - 0 AVIONICS ROLLUP 
FOR I - 19 TO 24 

IE OP$(l) - •DELETE/ THEN GOTO NX5 
K - K » 1 

X - X 1 NRD(I) • ((1 - PHI)) • POH(I) / FMAT(l) 4 THRS(I) / FMAS(t» 

Y-Y I MHMA(I) 

7 - 7 . \ (NRD(I) • ((1 ■ PI([)) * POH(I) / FMAT(I) l THRS(I) / FMAS(l))) * MHMA(J) 

NX5: NEXT I 
YA - Y / K 
7505 IO - 1 : IE - 18 
7510 CLS : COLOR 14 

7520 PRINT TAB{ 15); 'MAINTA1NABILTY REPORT at mission nbr /; X(24); * - page 1* 

7530 IF IO - 1 THF.N PRINT TAB(t); ‘VEHICLE IS *; VNAM$; TAB<35); ’DATE; *; DATES; TAB(60); "TIME: TIMES 

7548 COLOR 7 

7550 PRINT TAB(l); *WBS*, TAB(30); "MA1NT ACTIONS/MSN'; TAB(50). "AVG MANHR/MA"; TAB(65); "AVG MANHRS/MSN" 

7570 FOR I - IO TO IE 

7580 IF OPS<I) - •DELETE" THEN GOTO 7592 

IF SF.I.S<I) - 'SHUTTLE* THF.N COIXJR 12 ELSE COLOR 15 

7590 PRINT TAB(I); WBSS(1); TAB<32), NRD(I) * ((1 Pl(l)) * POH(I) / FMAT(I) t THRS(I) / FMAS(I)); TAB(50); MHMA(I); TAB(65); (NRD(I) * ((1 - PI(!)) • POH(I) / FMAT(I) 
h THRS(I) / FMAS(I))) * MHMA(I) 

IF I - 24 THEN COLOR 14: PRINT TAfl(5), 'AVIONICS ROLLUP', TAB(29); X; TAB<47); YA, "(AVG)'; TAB(63), Z 

7592 NEXT I 

7593 PRINT : COIX)R 2 

7594 IF IO - 1 THEN IO - 19: IE - 33: PRINT ; INPUT "ENTER RETURN...'; RET: GOTO 7510 

7595 COLOR 13 

7600 PRINT TAB(5); ’TOTALS', TAB(32), TMA; TAB(47); AMHMA; 'WT-AVG*, TAB(65); VMH 
7610 COI.OR 2 

7620 INPUT "ENTER RETURN ../; RF.T 
7630 IO - 1 : IFi - 18 
7640 CI.S : COLOR 14 

7650 PRINT TAB(15); " MAINTAINABILITY REPORT - at mission nbr"; X(24); " page 2" 

X - 0: Y - 0: 7 - 0: K - 0 ‘AVIONICS ROLLUP 
FOR I - 19 TO 24 

IF OPS(I) - “DELETE" THEN GOTO NX6 
K-K I 1 
X - X 1 OMH(I) 

Y - Y 4 FMH(I) 

Z - 7 I 1 - PF(I) 

NX6: NEXT I 
ZA - 7 / K. 

7660 IF IO - 1 THEN PRINT TAB(l); 'VEHICLE IS *; VNAMS; TAB(35); ’DATE: DATES; TAB(60); "TIME: •; TIMES 

7680 COLOR 7 

7690 PRINT TAB(l); 'WBS*; TAB(32); ’ON-VF.H MH"; TAB(47); "OFF-VEH MH"; TAB(60); "FRACTION ON-VF.H" 

7710 FOR I - IO TO IF. 

7720 IF OP$([) - "DELETE* THEN GOTO 7740 

IF SELS<I) - "SHUTTLE' THEN COLOR 12 ELSE COLOR 15 
7730 PRINT TAB(1), WBSS(I); TAB(32); OMH(I); TAB(50); FMH(I); TAB(65); 1 - PF(I) 

IF 1 - 24 THEN COLOR 14 ; PRINT TAB{5); 'AVIONICS ROLLUP", TAB(29); X; TAB(47); Y; TAB<62); ZA; "(AVG)" 

7740 NEXT I 

7750 PRINT : COI.OR 2 

7752 IF IO - 1 THF.N IO - 19: IF. - 33: PRINT : INPUT "ENTER RETURN./; RET: GOTO 7640 
COLOR 13 

PRINT TAB(3); "UNSCHEDULED"; TAB(32); TOMH; TAB(50); TFMH; TAB(65); APF; ‘(AVG)" 

7755 PRINT TAB(5); "SCHEDULED"; TAB<32); 98 * SCHP * TOMH; TAB(50); .02 * SCHP • TOMH 

7770 PRINT TAB(5); "TOTA1/; TAB{32); TOMH + .98 * SCHP * TOMH; TAB(50), TFMH 4 .02 * SCHP * TOMH 

7780 COLOR 2 

7790 INPUT "F.NTER RETURN ../; RET 


X — 0; Y — 0: AVIONICS ROLLUP 
FOR I - 19 TO 24 

IF OP$(I) - "DELETE" THEN GOTO NY8 
X — X I NRD(I) * (1 - PI(I)) * POH(I) / FMAT(l) 
Y - Y f NRD(I) * THRS(I) / FMAS(I) 

NY8: NEXT I 
IO - 1 : IE - 18 
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TXX - 0: TYY - 0 
NY7: CI.S : COLOR 14 

PRINT TAB* 10); 'MAINTAJNAB1LTY R I- PORT - at mission nbr,'; X(24); * - page 3' 

IP io - 1 THEN PRINT TAB( 1); 'VEHICLE IS *; VNAMS; TAB(35); ‘DATE: *; DATES; TAB<60); ‘TIME: ", TIMES 
COl OR 7 

PRINT TAB(t). *WBS" . TAB(32); *GRND PROC MA'; TAB(30); 'MSN MA'; TAB(65); 'TOTAL MA' 

PRINT TAB(32); '(external)'; TAB(50), '(inherent)' 

FOR I - 10 TO IF 

IF OPKD - ’ DELETE ’ THFN GOTO NY9 

IE SEI4(I> - "SHUTTLE* THEN COLOR 12 ELSE COtX)R 15 

XX - NRD(I) * (1 PUD) * POH(I) i FMAT(D: YY - NRD(I) * THRS(I) / FMAS(l) 

TXX - TXX \ XX TYY - TYY t YY 

PRINT TAB(l); WBS$<1); TAB(32); XX; TAB(50), YY; TAB(65), XX \ YY 

IF I - 24 THFN COLOR 14: PRINT TAB(5); 'AVIONICS ROLLUP*; TAB(29), X; TAB(47); Y; TAB(62), X \ Y 
NY9: NEXT I 

IF 10 - 1 THEN 10 - 19: IE - 33: PRINT : INPUT 'ENTER RETURN..'; RET: GOTO NY7 
COLOR 13 

PRINT TAB(5); 'TOTAL'; TAB(32); TXX, TAB(50); TYY; TAB(65); TXX + TYY 
COLOR 2 

INPUT 'ENTER RETURN RF.T 


END SUB 


SUB MANDISPLAY 

7800 MANPOWER DISPLAY 

X-OY-OZ-O *AVIONICS ROLLUP 
FOR I - 19 TO 24 

IF OPS(l) - 'DELETE' THEN GOTO NX8 
X - X ¥ MH(1) 

Z-Zt MP(I) 


'TIME: •; TIMES 
'; TAB(75); 'ASGD' 

MANHRS/MO* ; TAB(50); 'MANPWR'; TAB(59); "AVG CREW'; TAB(69); 'CREWS’; TAB(75); ‘CREWS' 


NX8: NEXT I 

Y - X(15) * X / 12 
MT - 0 

7803 IO - l: IE - 18: ASTP - 0 

7805 CLS : COLOR 14 

7810 PRINT TAB(25); ‘MANPOWER REPORT at misaiuo nbr ', X(24) 

7820 IF IO - 1 THEN PRINT TAB(1); 'VEHICLE IS '; VNAMS, TAB(35); 'DATE: *; DATES; TAB(«0); 

COLOR 3 : PRINT 'manpwr is computed from manhn/mo divided by avail direct hn per mo per penon" 

PRINT ‘rqd crews is computed from manpwr divided by avg crew*. : COLOR 7: PRINT TAB(69); 'RQD' 

7850 PRINT TAB(1); 'WBS'; TAB(26); 'MANHRS/MSN*, TAB(38), 

7870 FOR I - IO TO IE 

7880 IF OPS<I) - 'DELETE* THEN GOTO 7900 

IT SF.LS(I) - 'SHUTTLE' THEN COLOR 12 ELSE COLOR 15 
IF 1 > - 19 AND I < — 24 THEN ASTP - ASTP 4 C(t) 

NC - INT(MP(I) / C(I) f 1) 

MT - MT I C(I) * CA(0 “compute total pen 

7890 PRINT TAB(l); WBSS(I); TAB(28); MH(l); TAB(42). X(15) • MH(I) / 12; TAB(56); MP(I); TAB(61); C(I); TAB(71); NC; TAB(75); CA(I) 
IF 1 - 24 THEN COLOR 14: PRINT TAB(5); 'AVIONICS ROLLUP'; TAB(28); X; TAB(43); Y; TAB<58); Z; TAB(62); ASTP 

7900 NEXT 1 

7910 COLOR 2 

7912 IF IO - 1 THEN 10 - 19: IE - 33: INPUT 'ENTER RETURN RET: GOTO 7805 


COLOR ! 1 

PRINT TAB(5); ‘UNSCHEDULED*; TAB(28), VMH; TAB(42); VMH * X(15) / 12; TAB(56); TMP - SMP; TAB(61); STP 
7915 PRINT TAB<5); ‘SCHEDULED'; TAB(28); SCHP * TOMH, TAB<42); X(15) • SCHP * TOMH / 12; TAB(56); SMP; TAB<61); X(14) 

7920 COLOR 1 3 

7930 PRINT TAB(5); 'TOTAL', TAB(28); VMH t SCHP * TOMH; TAB(42); (VMH f SCHP * TOMH) * X(15) / 12; TAB(56); TMP; TAB(61); STP f X(14): COLOR 14 
PRINT TAB(I); 'Tot personnel aaigned SUM (avg crew s ire * ugd crews) L sebd manpwr'; TAB<75); INT(MT) f SMP 
7940 COlX>R 2 

7950 INPUT 'ENTER RETURN TO CONTINUE. . . ' ; RET 


END SUB 


SUB RELDISPLAY 

9000 '••••• DISPLAY MODULE FOR RELIABILITY REPORT 
X - 0: Y - 0: Z - 0 AVIONICS ROLLUP 
TORI - 19 TO 24 

IF OPS(l) - 'DELETE' THEN GOTO NX l 
IE RELF(I) - 1 THEN GOTO NX1 
X — X 1 l / FMA(I) 

Y-YI(1- Pl(!)) / FMAT(l) 

7 - 7 ♦ 1 / FMAS<Q 
NX1 : NEXT 1 

IF X > 0 THEN XA - 1/ X 
IF Y > 0 THEN YA = 1 / Y 
IF Z > 0 THEN ZA - 1 / Z 
MNEMA - 0 
9005 IO - 1: IE - 18 
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90I0CLS : COLOR 14 

9020 PRINT TAB( 15). "RELIABILITY REPORT - at mission nbr."; X(24); " - page ! ’: COLOR 9 

9030 IF 10 - 1 THEN PRINT TAB(t); "VEHICLE IS *, VNAMS, TAB(35); "DATE.: "; DATES; TAB(60); 'TIME: \ TIMES 
COLOR 4: PRINT 'reliability specified COLOR 3 PRINT ’all MTBM’s arc f or a single subsystem* COLOR 7 
PRINT TAB(I), "WBS'; TAB(26); ' TECH/GROWTH MTBM", TAB(45); *GRND PROC MTBM*; TAB(61), ’MISSION MTBM’ 

PRINT TAB(29); "(all MA’s)'; TAB(45); '(External MA’s)', TAB(61); ’(inherent MA's)* 

9070 FOR I - IO TO IE 

9080 IF OP$(I) - 'DELETE* THEN GOTO 9092 
MNFMA - MNFMA I (1 PI(|)> / FMAT(I) 

9085 IF SEI4(1) - "SHUTTLE" THEN COLOR 12 ELSE COLOR 15 
IF RELF(I) - 1 THEN COLOR 4 

IF I - 9 THEN PRINT TAB(I), WBS$(I); " MSN'S/FAILURF TAB(35), FMAT(I); TAB(48); FMAT(l) / (! - PI([)); TAB(61); FMAS(I) 
IF I < > 9 THEN PRINT TAB( I ); WBS$([), TAB(35); FMAT(I); TAB(48); FMAT(I) / (1 - PI(I)); TAB(6l); FMAS(I) 

IF I - 24 THEN COLOR 14: PRINT TAB(5); "AVIONICS ROLLUP*; TAB(32); XA; TAB(45); YA; TAB(58); ZA 
9092 NEXT I 
COLOR 2 

9094 IF IO - I THEN IO - 19 IF. - 33: INPUT ’ENTER RETURN..’; RET: CI.S : GOTO 9010 

9095 CO! .OR 13 

9100 PRINT TAB(5); "VEHICLE"; TAB(35); TVFMA; TAB(48); 1 / MNFMA; TAB(61); SVFMA 
9105 COLOR 2 

9110 INPUT "ENTER RETURN RET 
9120 CLS 

X-0:Y -0:7 - I : K — 0 AVIONICS ROLLUP 
FOR I - 19 TO 24 

IF OPS(l) - 'DELETE* THEN GOTO NX2 
K-K i 1 
X - X f PA(I) 

Y - Y t 1 / FMAC(I): YA - I / Y 
7.-7,* R(l) 

NX2: NEXT l 

IF K - 0 THEN K - 1 
XA - X / K 
9125 IO - I: IF. - 18 
9130 CLS : COLOR 14 

PRINT TAB(15); "RELIABILITY REPORT - at mission nbr ", X(24); " - page 2’: COLOR 9 

IF IO - 1 THEN PRINT TAB(l); "VEHICLE IS "; VNAMS; TAB(35), "DATE: DATES; TAB(60); "TIME: "; TIMES 

COI.OR 4 PRINT "reliability specified ", . COLOR 3: PRINT "all MTBM’s arc ftr a single subsystem" COUDR 7 
9170 PRINT TAB(l); "WBS", TAB(28); "CRITICAL FAILURE"; TAB(48); ’CRITICAL"; TAB(60); "SUBSYS NON-" 

IF X(25) - 0 THEN PRINT TAB(28); "RATE-grnd \ air'. TAB(48); "MTBM"; TAB(60); "REDUNDANT MSN REL" 

IF X(25) - I THEN PRINT TAB(28); "RATE -air only"; TAB(48); "MTBM"; TAB(60); "REDUNDANT MSN REL’ 

9t90 FOR 1 - IO TO IE 

9200 IF OPSfl) - ’DELETE’ THEN GOTO 9220 
9205 IF SELS(I) - "SHUTTLE" THEN COLOR 12 ELSE COIX)R 15 
IE RELF(I) - 1 THEN COLOR 4 

9210 PRINT TAB(l); WBSS(I). TAB(33); PA(I); TAB(48); EMAC(I); TAB(65); R(I) 

rF I - 24 THEN COI.OR 14 PRINT TAB(5); "AVIONICS ROLLUP", TAB(27); XA; "AVG"; TAB(45); YA; TAB(62); 7. 

9220 NEXT I 
COLOR 2 

9235 IE IO - 1 THEN IO - 19: IE - 33: INPUT "ENTER RETURN ", RET: &JS : GOTO 9 130 
9240 COIX)R 13 

9250 PRINT TAB(5); ’VEHICLE’; TAB(48); CVFMA, TAB(65); VR 
9260 COLOR 2 

9270 INPUT "ENTER RETURN RET 

X - 1 : Y — 1 : Z — 1 AVIONICS ROLLUP 
FOR I - 19 TO 24 

IF OPS(I) ‘DELETE* THEN GOTO NX3 
X - X * R 1(1) 

Y — Y * R2(0 
7,-7,* R3(l) 

NX3: NEXT I 


9285 IO - 1: IF - 18 
9300 C1.S COIXJR 14 

PRINT TAB(I5); "RELIABILITY REPORT - at mission nbr.'; X(24); " - page 3": COUDR 9 

rr IO - 1 THEN PRINT TAB(l); "VEHICLE IS "; VNAMS; TAB(35); ’DATE: "; DATES; TAB(60), "TIME: "; TIMES 
COLOR 4: PRINT ’reliability specified *, : COLOR 3: PRINT ’reliabilities based upon redundancy’; COI.OR 7 

9315 PRINT TAB(I); ’WBS*; TAB(33); ‘LAUNCH’; TAB(45); ’END OF"; TAB(60), ’ORBIT" 

9320 PRINT TAB(33); ’TIME"; TAB(45); "POWER FLT"; TAB(60); "INSERTION’ 

9330 FOR I - IO TO IE 

9335 IE OPS(l) - ’DELETE’ THEN GOTO 9345 
9337 IF SE14(I) - ’SHUTTLE" THEN CCKX3R 12 F.I.SE COiJOR 15 
IF RELF(I) - 1 THEN COLOR 4 

9340 PRINT TAB(l); WBSS<I); TAB(33); R1(I); TAB(45); R2(l); TAfl(60); R3(I) 

IF I - 24 THEN COLOR 14: PRINT TAB(5); ’AVIONICS ROLLUP’; TAB(30); X; TAB(42); Y TAB(57) 7 
9345 NEXT I 
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9355 IF IO - 1 THF.N 10 - 19 : IF - 33 COLOR 3: INPUT ’ENTER RETURN " ; RUT: GOTO 9300 
COLOR 13 

9360 PRINT TAB(5); "VEHICLE’; TAB(33), VR1; TAB(45); VR2, TAB(60), VR3 
9365 COLOR 2 

9370 INPUT ’FNTFR RF.TURN RFT 

X - 1. Y - l: Z - 1 AVIONICS ROLLUP 
FOR I - 19 TO 24 

IF OP$U) - ’DF.LFTE* THFN GOTO NX4 
X - X » R4(l) 

Y - Y * R5(l) 

NX4: NFXT I 

9385 IO - 1 IF. - 18 
9400 CIS COLOR 14 

PRINT TAB( 1 5); *RFL1 ABILITY RFPORT at mission nbr X(24); ’ - page 4": COLOR 9 

IF 10 - 1 THFN PRINT TAB(l); 'VEHICLE IS *; VNAMS, TAB(35); ’DATE: ’; DATES, TAB(60); ’TIME: TIMES 

COIX)R 4 PRINT ’reliability specified : COLOR 3: PRINT ’reliabilities based upon redundancy’: COLOR 7 


9415 PRINT TAB(l); ’WBS\ TAB(45); ’REENTRY', TAB(60); ’MISSION’ 

9420 PRINT TAB(60), ’COMPLETION’ 

9430 FOR I - 10 TO IE 

9435 IF OPS<0 - ’DELETE* THEN GOTO 9445 
9437 IF SELS(I) - ’SHUTTLE’ THEN COIXJR 12 ELSE COLA)R t5 
IF RELF(I) - 1 THEN COIX3R 4 
9440 PRINT TAB{1); WBS$<f); TAB(45); R4(I); TAB(60); R5(I) 

IF I - 24 THFN COLOR 14: PRINT TAB<5); ’AVIONICS ROLLUP’; TAB<42), X; TAB(57); Y 
9445 NEXT 1 
COIXJR 2 

9455 IF IO - 1 THEN 10 - 19: IE - 33: INPUT ’ENTER RETURN .’; RET: CLS : GOTO 9400 
COLOR 13 

9460 PRINT TAB(5); ’VEHICLE’; TAB(45); VR4; TAB(60); VR5 
9465 COLOR 2 

9470 INPUT ’ENTER RETURN RET 
END SUB 

SUB SPARE DISPLAY 

8500 • DISPLAY SPARES RESUITS 

X-OY-OZ-OK-O AVIONICS ROLLUP 
FOR I - 19 TO 24 

IF OPS(l) - ’DELETE’ THEN GOTO NX7 
K - K !■ 1 
X - X ♦ RR(I) 

Y - Y i NR(I) 

Z - 7 \ S(l) 

ZX - ZX \ FR(I) 

NX7 NEXT 1 
XA - X / K 
ZX - ZX / K 
8505 10 - l : IE - 18 
8510 CL^S : COIX3R 14 

8520 PRINT TAB{20); ’SUBSYSTEM SPARES REPORT - at mission nbr.’, X(24) 

8530 IF 10 - 1 THEN PRINT TAB(l); ’VEHICLE IS *; VNAMS; TAB(35); ’DATE: *, DATES; TAB<6G); ’TIME: ’; TIMES 
COLOR 3: PRINT TAB<5); ’NOTE: failures are asaumcd to be Poisson* 

8545 COLOR 7 

PRINT TAB(32). ’REMOVAL’, TAB(42); ’MEAN DEMAND’, TAB<56); ’SPARES’; TAB(65); ’EFFECTIVE’ 

8550 PRINT TAB(l); ’WBS’; TAB<32), ’RATE/MA’; TAB<42); ’PER MISSION’; TAB(56), ’ RQMT’; TAB(65); ’FILL RATE’ 

8570 FOR 1 - 10 TO IE 

8580 IF OPS(I) - ’DELETE* THEN GOTO 8600 

IF SF.LSU) - "SHUTTLE’ THEN COLOR 12 ELSE COLOR 15 
8590 PRINT TAB(l); WBSS(I); TAB<30), RR(I); TAB(4l); NR(I); TAB(55); S(I); TAB(65); FR(I) 

IF I - 24 THEN COLOR 14: PRINT TAB(5); ’AVIONICS ROLLUP’, TAB(25); XA; ’(AVG)’; TAB(40); Y; TAB(56); Z, TAB(62); ZX, ‘(AVG)* 
8600 NEXT I 
COIX3R 2 

8615 IF IO - I THFN IO - 19: IE - 33: INPUT ’ENTER RETURN. RET: GOTO 8510 
8620 COLOR 13 

8630 PRINT TAB(5); ’TOTALS’, TAB{27); ARR; ’(AVG)*, TAB{43); TNR; TAB<55); TS 
PRINT TAB(5); ’WGT AVG’; TAB(27); AREM 
8640 COLOR 2: INPUT 'ENTER RETURN RET 

END SUB 

SUB SUMMARY 
US : COLOR 10 

PRINT TAB(20), ’SYSTEM PERFORMANCE SUMMARY - at mission nbr.’; X(24); ’ - page I" 

PRINT TAB<1); ’VEHICLE IS VNAMS; TAB(35); ’DATE: DATES; TAB(60); ’TIME: ’; TIMES 

COIX3R 14: PRJNT : PRINT TAB(30); ’RELIABILITY REPORT * 
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PRINT 
COLOR 7 

PRINT TAB(I), ’CATEGORY*; TAB(33); ’LAUNCH’; TAB(45); ’END OF*, TAB(60), ‘ORBIT- 
PRINT TAB(33), *TIMF.’, TAB(45); 'POWER FLT’; TAB(60); ‘INSERTION- 
PRINT COLOR 12 

PRINT TAB(5); " VEHICLE ", TAB(33); VRI; TAB(45); VR2; TAB(60); VR3 

IE SRBREL < l THEN PRINT TAB(5); ’VEHICLE l LRB"; TAB(33); SRBREL * VRI, TAB(45); SRBREL * VR2, TAB(60); SRBRF.L • VR3 

IF ETREL < 1 THEN PRINT TAB(5); ’VEHICLE + LRB + FT’, TAB(33); ETREL * SRBREL * VRI; TAB(45), ETREL * SRBREL * VR2 TAB(60) ETRE1 * SRBREI * VR3 
PRINT : COLOR 7 ’ 

PRINT TAB(l); TAB(45); 'REENTRY'; TAB(60); 'MISSION- 

PRINT TAB<60); ’COMPLETION'; COLOR 12 

PRINT TAB(5); "VEHICLE’; TAF^45); VR4, TAB(60), VR5 

IE SRBREI. < 1 THEN PRINT TAB(5); ’VEHICLE t LRB’; TAB{45), SRBREL * VR4, TAB(60); SRBREL * VR5 

IE ETREL. < I THEN PRINT TAB(5); ’VEHICLE + LRB + ET’ ; TAB(45); ETREL. * SRBREL * VR4, TAB(60); F.TREL • SRBREI. * VR5 

PRINT 


COL -OR 2 

IE MTE - 0 THEN MTE - I 

PRINT : INPUT ’ENTER RETURN..’; RET 

CUS COLOR 10 

PRINT TAB(I5); ’SYSTEM PERFORMANCE SUMMARY - at misson nbr X(24); * - page 2’ 

PRINT TAB{1); ’VEHICLE IS VNAMS; TAB(35); "DATE; ’; DATES, TAB(60); ’TIME; *; TIMES 
PRINT COLOR 14; PRINT TAB(30), ’MAINTAINABILITY REPORT' 

COIOR 7 PRINT TAB(66); 'UNSCHED' 

PRINT TAB(l); ’CATEGORY’; TAB|28); ’MAINT ACTIONS/MSN"; TAB(48); ’WT-AVG MANHR/MA"; TAB(66); "AVG MANHRS/MSN’ 

PRINT COLOR 12 

PRINT TAB(5); "VEHICLE’; TAB(32); TMA; TAB(50); AMHMA; TAB(65); VMH 

IF ETREL < I THEN PRINT TAB(5); ’EXTERNAL TANK*, TAB{32), MTE, TAB<50); STE / MTE; TAB(65); STE 
IF SRBREL < 1 THEN PRINT TAB(5); ’BOOSTER-; TAB(32), MTF; TAB(50); STF / MTF; TAB(65); STF 
PRINT COLOR 7 

PRINT TAB(32); ’ON-VEH MH"; TAB(47); 'OFF-VEH MH*; TAB(62); "FRACTION ON-VEH" 

COIOR 12; PRINT TAB(5); ’VEHICLE’ 

PRINT TAB(7), ’UNSCHED’; TAB(32); TOMH; TAB(30), TFMH 

PRINT TAB(7); ’SCHEDULED*; TAB(32); 98 * SCHP * TOMH; TAB(50), 02 * SCHP * TOMH 

PRINT TAB(7); ’TOTA1.S’; TAB(32); TOMH + 98 * SCHP * TOMH; TAB(50); TFMH \ 02 * SCHP * TOMH, TAB<65); APF; ’(AVG)’ 

IF ETREL < 1 THEN PRINT TAB(5); ’EXTERNAL TANK* 

IF ETREL < I THEN PRINT TAB(7); "SCHED/UNSCHED’; TAB(32); STE F ETS * STE 
IF SRBREI. < I THEN PRINT T A B( 5); "BOOSTER* 

IF SRBREL < 1 THEN PRINT TAB(7); ’SCHED/UNSCHED*; TAB(32); STE -t SRBS * STF 
COLOR 2: PRINT ; INPUT ’ENTER RETURN .’; RET 

C1.S COIOR 10 

SCMP - X( 14): B1 - 0: B4 - 0: A2 - 0: B2 - 0: A1 - 0; A4 - 0 

PRINT TAB(15); "SYSTEM PERFORMANCE SUMMARY at raisaion nbr/; X(24); * page 3’ 

PRINT TAB(l); ’VEHICLE IS VNAMS, TAB(35); ’DATE: ’, DATES; TAB(60); 'TIME; ’; TIMES 
PRINT COLOR 14; PRINT ; PRINT TAB(30), ' MANPOWER/SPARES REPORT’ 

PRINT : COIOR 13 PRINT TAB(5); 'SPARES -VEHICLE’; TAB(30), TS 
PRINT : COLOR 7 

PRINT TAB(I); "CATEGORY"; TAB(25), "MANHR DRIVEN'; TAB(40); ’MANHR DRIVEN’; TAB{55); "CREWS7.*; TAB(65); 'TOT CREW* 

PRINT TAB(25); ’AGGREGATE"; TAB(40), *BY SUBSYS", TAB(55); ’BY SUBSYS’; TAB<65); ’BY SUBSYS’ 

PRINT : COIOR 12 
PRINT TAB(3); "VEHICLE* 

A2 - (VMH * X(15)) / (12 * X(1 1) * (1 X(12))) 

A2 - INT(A2 t .999) 

B2 - (SCHP* TOMH * X(15)) / (12 * X(1 1) * (I * X(12)» 

B2 - INT(B2 i .999) 

IF ETREL - I THEN TME - 0 

PRINT TAB(5); ’UNSCH MANPWR"; TAB(25); A2, TAB(40), TMP - SMP; TAB(55); STP; TAB(65); Cl 
PRINT TAB(5); ’SCHED MANPWR’; TAB(25); B2; TAB(40); SMP; TAB(55); SCMP; TAB(6 5); SCMP 
PRINT TAB(5); ’TOTAL’; TAB(25); A2 f B2; TAB(40); TMP; TAB(55); STP + SCMP; TAB(65); Cl f SCMP 
PRINT TAB(3), "EXT TANK’ 

A1 - ((ETS * STE f STE) • X(15)) / (12 * X(I1) * (l - X(12))) 

A 1 - INT(Al F 999) 

Bl - ETCREW(I) + F.TCREW(2) + ETCREW(3) F F.TCREW(4) F ETCREW(5) 

B1 - !NT(B1 f .999) 

IF ETREL - 1 THEN A1 - 0: Bl - 0 

IF ETREL < 1 THEN PRINT TAB(5); "SCHD/UNSCH MANPWR’; TAB(25); Al; TAB(40); TME; TAB(55); Bl’ TAB(65) Bl 
PRINT TAB(3); *I.RB’ 

A4 - ((SRBS * STF f STF) *X(15»/(12 *X(ll)*(l - X(12))) 

A4 - INT(A4 t .999) 

B4 - SRBCREW(l) f SRBCREW(2) F SRBCREW(3) F SRBCREW(4) 

B4 - INT(B4 F .999) 

IF ETREL - 1 THEN Bl - 0 

IF SRBREL - 1 THEN B4 - 0: TME - 0: A4 - 0 

IF SRBREL. < ] THEN PRINT TAB(5), ’SCHD/UNSCH MANPWR’; TAB(25); A4; TAB(40); TMF; TAB(55); B4; TAB(d5); B4 

PRINT ; PRINT TAB(tO), ’TOTALS’; TAB(25); A2 F B2 F Al F A4; TAB(40), TMP F TME f TMF; TAB(55); STP F SCMP f Bl F B4; TAB(65), Cl F SCMP f Bl I 
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B4 

COLOR 2 

PRINT INPUT "ENTER RETURN RET 
CCS 

’ VEHICLE TURN TIME SUMMARY 
TT - 0 Tl - 0 TMAX - 0 
SUM - 0 a - 0 SUMC - 0 
FOR I - l TO 33 

IE OP${l) - "DELETE' THEN GOTO N1 

CT - CT f 1 

SUMC - SUMC t C(I) 

IF SE14<I) - "SHUTTLE* THEN TSKT(I) - SMR(I) EI.SE TSKT(1) - (1 PE(I)) * MHMA(I) / C(I) 

Tl - (NRD(I) * (1 PI(0) * POH(I) / FMAT(l) F THRS(D / FMAS(I)) * TSKT(l) / CA(f) 

IF TI > TMAX THEN TMAX - Tl: JJ - I 

TT - TT t Tl 

SUM - SUM t TSKT(I) 

N 1 • NEXT l 

SCHT - .98 * SCHP * TOMH / X(14) 

GTT - TT f SCHT: ATSK - SUM / CT 
IF TMAX < SCHT THEN TMAX - SCHT 

PRINT TAB(15), "SYSTEM PERFORMANCE SUMMARY - at mission nbr"; X(24); " - page 4" 

PRINT TAB(l); "VEHIClXi IS “; VNAMJ; TAB(35), "DATE: ", DATES; TAB(60); "TIME: TIMES 

COLOR 14: PRINT : PRINT TAB(35); "VEHICLE TURN TIMES": PRINT 
COLOR U 

PRINT TAB(35), "MIN TURN TIME"; TAB(55); "MAX TURN TIME- 
PRINT TAB(l), "ONE SHTFT/DAY MAINTENANCE": COIOR 15 
DVTT - (T(0) F T(4)) / 24 F TMAX / 8 F X(I7) F X(18) 

MDVTT - (T(0) F T(4)) / 24 F (TT F SCHT) / 8 F X(I7) F- X(l8) 

PRINT TAB{5); "TOT VEHICLE TURNAROUND TIME"; TAB(35); DVTT; "DAYS", TAB(55); MDVTT 
PRINT TAB(5); "AVC MISSIONS/ YR/VEH1CLE" ; TAB(35); 12*21/ DVTT; TAB(55); 12 * 21 / MDVTT 

PRINT TAB(5); "COMPUTED FLEET SIZE TAB<35); INT((X(15) / 12) / (21 / DVTT) F .99); TAB(55); INT((X(15) / 12) / (21 / MDVTT) F .99) 
PRINT 

COLOR 14 PRINT TAB(l); "TWO SHIFTS/DAY MAINTENANCE": COLOR 15 
DVTT - (T(0) t T(4)) / 24 t (TMAX) / 16 F X(17) F X< 1 8) 

MDVTT - (T(0) t T(4»/ 24 F (TT F SCHT) / 16 F X(17) F X(18) 

PRINT TAB(5); "TOT VEHICLE TURNAROUND TIME"; TAB<35); DVTT; "DAYS", TAB(55); MDVTT 
PRINT TAB(5); "AVC M1SSIONS/YR/VEHICLE"; TAB(35); 12*21/ DVTT; TAB(55); 12 * 21 / MDVTT 

PRINT TAB(5); "COMPUTED FLEET SIZE "; TAB(35); INT((X(15) / 12) / (21 / DVTT) F 99); TAB(55); INT((X(15) / 12) / (21 / MDVTT) F 99) 
PRINT 

COlX)R 14: PRINT TAB(l); "THREE SHIFTS/DAY MAINTENANCE": COLOR 15 
DVTT ^ (T(0) F T(4» / 24 F TMAX / 24 F X( 1 7) F X(18) 

MDVTT - (T(0) F T(4)) / 24 F (TT F SCHT) / 24 F X(17) F X(18) 

PRINT TAB<5); "TOT VEHICLE TURNAROUND TIME"; TAB<35); DVTT; "DAYS", TAB(55); MDVTT 
PRINT TAB(5); "AVG MISSIONS/YR/VEH1CLE"; TAB(35); 12*21/ DVTT; TAB(55); 12 * 21 / MDVTT 

PRINT TAB(5); "COMPUTED FLEET SIZE ", TAB(35); INT((X(15) / 12) / (21 / DVTT) F .99); TAB(55); INT((X(15) / 12) / (21 / MDVTT) F 99) 
PRINT COLOR 2: INPUT "ENTER RETURN \ RET 

END SUB 

SUB TURNTIME 

9700 MODULE TO DISPLAY VEHICLE TURN TIME 

9705 TT — 0: Tl - 0 TMAX - 0 

9706 SUM - 0: CT - 0: SUMC - 0 
9710 FOR 1 - 1 TO 33 

9715 IE OPS(I) - "DELETE" THEN GOTO 9735 

9716 CT - an 
SUMC - SUMC t C(!) 

9720 IF SEL$(I) - "SHUTTLE" THEN TSKT(l) SMR(l) ELSE TSKT(I) - (1 - PF(I)) * MHMA(I) / C(I) 

Tl - (NRD(I) * (1 - PI(D) * POH(U / FMAT(I) + THRS(I) / FMAS<1)) * TSKT(I) / CA(!) 

IF TT > TMAX THEN TMAX - TI JJ - I 
9730 TT - TT F TI 
9733 SUM - SUM F TSKT(I) 

9735 NEXT I 

AVCREW - SUMC / CT 
9740 SCHT - .98 * SCHP * TOMH / X(14) 

9750 GTT - TT F SCHT: ATSK - SUM / CT 
9800 * DISPLAY VEHICLE TURN TIME 

W - 0: X - 0: Y - 0: Z = 0: K - O’ AVIONICS ROLLUP 
FOR I - 19 TO 24 

IF OP$(l) - "DELETE* THEN GOTO NX 10 
K-K l 1 
X - X f CA(I) 

Y - Y f TSKT(l) 

7.-Z) (NRD(I) * (I Pl(l)) * POH(!) / FMAT(l) F THRS(I) / FMAS(I)) * TSKT(I) / CA(1) 

W - W F NRD(I) * (1 - Pl(l)) * POH(l) / FMAT(I) F THRS(I) / FMAS(I) 

NX 10: NEXT 1 
YA - Y / K 
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9805 fO — 1 : in - 1 8 
9810 CLS : COLOR 14 

9820 PRINT TAB(20), "VEHICLE TURN TIME REPORT - at mission nbr \ X(24), * page 1" 

9830 IF 10 - I TRF.N PRINT TAB(l); ’VEHICLE IS *. VNAM$; TAB(35); "DATE: *, DATES, TAB(60)' ’TIME' ’ TIMES 
9845 COLOR 7 

PRINT TAB(25), "ON-VEHICLE*, TAB(38); ’ TOT *; TAB(52); 'NBR CREWS*; TAB(62), *AVG SUBSYS REPAIR* 

9850 PRINT TAB(l); ‘WBS*. TAB(25); *MTTR (HRS)*; TAB(38); ’MAIN ACT*; TAB(52); "ASSIGNED"; TAB(62) ’TIME PER MSN-hrc* 

9870 FOR I - IO TO IE 

9880 IF OP$(I) - “DELETE* THEN GOTO 9900 

IF SE1*(I) - "SHUTTLE" THEN COLOR 12 EI*E COIXJR 15 
IF I - JJ THEN COLOR 19 

9885 TEMP - (NRD(I) * (I - Pl(f» * POH(I) / EMAT(I) t THRS(I) / EMAS(I)) * TSKT(I) / CA(l) 

IF I - JJ THEN TSAVE - TEMP 

9890 PRINT TAB(l); WBS$(J), TAB(28), TSKT(I); TAB(40), NRD(I) * (1 - PI(I» • POH(I) / EMAT(I) t THRS(I) t FMAS(I); TAB(54) CA(I) TAB(62) TEMP 
IF I _ 24 THEN COLOR 14: PRINT TAB(5); ‘AVIONICS ROLLUP"; TAB(27); "AVG*; YA, TAB(40) W TAB(53) X TABI61) 7 "TOT* 

9900 NEXT I ' ’ 

COI -OR 2 

9905 IE IO - 1 THEN IO - 19: IE - 33: PRINT : INPUT "ENTER RET"; RET: Cl* GOTO 9810 
PRINT : COIXJR 13 

PRINT TAB(l); *AVC CREW SI7E", AVCREW. TAB(26), *AVG TASK TIME’, ATSK; TAB(60) TT "(TOTAL)" 

9910 PRINT : COLOR 2 INPUT "ENTER RETURN "; RET 

9920 Cl* : COLOR 14 

9921 PRINT TAB(20); "VEHICLE TURN TIME REPORT at mission nbr X(24); * - page 2" 

9922 PRINT TAB(1), "VEHICLE IS VNAMJ; TAB(35); “DATE: *; DATES; TAB(60); ‘TIME: *, TIMES 
COIXJR 15: PRINT PRINT TAB(5); "CATEGORY*; TAB(52); "MIN TURN TIMES* PRINT 
PRINT TAB(5); ’SCHD MAINT MSN TASK TIME*; TAB(55), SCHT; "HRS" 

PRINT TAB(5); "UNSCHEDULED MAINTENANCE TIME"; TAB(55); TSAVE; "HRS* 

PRINT TAB(5); "INTEGRATION TIME", TAB(55); X(17); ‘DAYS" 

PRINT TAB(5); "LAUNCH PAD TIME", TAB(55); X(18), "DAYS’ 

PRINT TAB(5); "MISSION TIME -INCGRND PWR TIME', TAB(55); T(0) I T(4); "HRS" 

IF TSAVE < SCHT THEN TSAVE - SCHT 

VTT - T(0) t T(4) I TSAVE f X(17) * 24 i X(18) * 24 COLOR 12 

PRINT TAB(5); "TOT VEHICLE TURNAROUND TIME"; TAB(55); VTT; "TOTAL HRS" 

COLOR 14 

PRINT TAB(l); "ONE SHIFT/DAY MAINTENANCE* 

DVTT - (T(0) \ T(4)) / 24 f (TSAVE) / 8 f X(17) t X(18) 

PRINT TAB(5), "TOT VEHICLE TURNAROUND TIME"; TAB(55); DVTT; 'DAYS* 

PRINT TAB(5); "AVG MISSIONS/YR/VEH1CLE*; TAB(55); 12 * 21 / DVTT 

PRINT TAB(5), "COMPUTED FLEET SIZE "; TAB(55); 1NTT((X(15) / 12) / (21 ! DVTT) t .99) 

PRINT TAB(l); "TWO SHIFTS/DAY MAINTENANCE* 

DVTT - (T(0) t T(4» / 24 \ (TSAVE) / 16 t X(17) \ X(18) 

PRINT TAB(5), ‘TOT VEHICLE TURNAROUND TIME"; TAB(55); DVTT, ‘DAYS’ 

PRINT TAB(5); "AVG MI SS IONS/ YR/ VEHICLE " ; TAB(55); 12*21/ DVTT 

PRINT TAB(5); "COMPUTED FLEET SIZE "; TAB(55); INT((X(I5) / 12) / (21 / DVTT) 1 99) 

COLOR 3 

PRINT TAB(5), "NOTE: assumes parallel unsch/scbed mamt tasks, 8 hr shifts, and 21 werk days a month’ 

COLOR 2 

PRINT INPUT "ENTER RETURN RET 
CLS : COIXJR 14 

PRINT TAB(20), 'VEHICLE TURN TIME REPORT - at mission nbr X(24); * - page 3’ 

PRINT TAB(I); ‘VEHICLE IS VNAM$; TAB(35); "DATE: "; DATES; TAB<60); ‘TIME: *; TIME* 

COIXJR 15: PRINT PRINT TAB(5); "CATEGORY*, TAB(52); 'MAX TURN TIMES*: PRINT 
PRINT TAB(5); *SCHD MAINT MSN TASK TIME"; TAB(55); SCHT; "HRS* 

PRINT TAB(5); "UNSCHED MAINT TIME", TAB(55); TT; "HRS' 

PRINT TAB(5); ’INTEGRATION TIME"; TAB(55); X(17); "DAYS’ 

PRINT TAB(5); "LAUNCH PAD TIME"; TAB(55), X(18); "DAYS* 

PRINT TAB(5); "MISSION TIME INC GRND TIME"; TAB(55); T(0) t- T(4); "HRS" 

VTT - T(0) t T(4) t TT + SCHT + X(17) * 24 f X(18) * 24: COIXJR 12 

PRINT TAB(5); "TOT VEHICIJi TURNAROUND TIME", TAB(55); VTT; "TOTAL HRS* 

COIXJR 14; PRINT TAB(l); 'ONE SHIFT/DAY MAINTENANCE" 

DVTT - (T(0) t- T(4)> / 24 f (TT + SCHTJ / 8 f X(17) t X(18) 

PRINT TAB(5); "TOT VEHICLE TURNAROUND TTME"; TAB(55), DVTT; "DAYS" 

PRINT TAB(5); "AVG Ml SS! ON S/YR/ VEHICLE" ; TAB(55); 12 * 21 / DVTT 
9960 PRINT TAB(5); "COMPUTED FLEET SIZE "; TAB(55); INT((X(15) I 12) / (21 / DVTT) + 99) 

PRINT TAB(l); "TWO SHIFTS/DAY MAINTENANCE" 

DVTT - (T(0) t T(4)) / 24 + (TT + SCHT) / 16 + X(17) + X(18) 

PRINT TAB(5); "TOT VEHICLE TURNAROUND TIME*; TAB(55); DVTT, ‘DAYS* 

PRINT TAB(5); ‘AVG MISSIONS/YR/VEHICLE"; TAB05); 12*21/ DVTT 

PRINT TAB(5); ‘COMPUTED FLEET SIZE *, TAB(55); JNT((X(15) / 12) / (21 / DVTT) f .99) 

COLOR 3 

PRINT TAB(5); ’NOTE: assumes sequential tasks, 8 hr shifts, and 21 wort days a month’ 

COLOR 2 

9985 PRINT : INPUT ’ENTER RETURN . RET 
CLS : COIXJR 14 

PRINT TAB(20); ’VEHICLE TURN TIME REPORT at mission nbr *, X(24); ’ page 4* 

PRINT TAB(l); ‘VEHICLE IS ’; VNAM$, TAB(35); "DATE: *; DATE*; TAB(60), "TIME: "; TIMES 
COLOR 15: PRINT ; PRINT TAB<5); ’CATEGORY": PRINT 
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PRINT TAB(l); "THREE SHIFTS/DAY MAINTENANCE" , TAB(52); "MIN TURN TIMES' 

DVTT - (T(0) I T(4)) / 24 4 (TSAVF.) / 24 4 X{17) ♦- X(18> 

COLOR 14: PRINT TAB(5), "TOT VEHICLE TURNAROUND TIME", TAB(55), DVTT, 'DAYS* 

PRINT TAB(5); "AVG MISSIONS/YR/VEHICLE"; TAB(55); 12 * 21 / DVTT 

PRINT TAB(5); "COMPUTED FLEET SIZE TAB(55); INT((X(I5) f 12) / (21 i DVTT) f .99) 

PRINT 

COLOR 15: PRINT TAB(l), "THREE SHIFTS/DAY MAINTENANCE"; TAB(52). "MAX TURN TIMES' 
DVTT - (T(Q) 4 T(4))/ 24 4 (TT r SCHT) / 24 f X(17) ♦ X(18) 

COLOR 14 PRINT TAB(5); "TOT VEHICLE TURNAROUND TIME", TAB(55), DVTT, "DAYS' 

PRINT TAB(5); "AVG M1SSIONS/YR/VEH1CLE"; TAB(55); 12 * 21 / DVTT 

PRINT TAB(5), "COMPUTED FLEET SIZE \ TAB<55), INT((X(15) / 12) / (21 / DVTT) 4 99) 

COLOR 3: PRINT 

PRINT TAB(5); "NOTE assumes 8 hr shift, and 21 work days a month* 

COLOR 2 

PRINT INPUT ‘ENTER RETURN ", RET 
END SUB 


File: RAM3.BAS print module 


DECLARE SUB WRFII 0 
DECLARE SUB SIMREP 0 
DECLARE SUB SIM 0 
DECLARE SUB ETSRB Q 
DECLARE SUB PRINTSUM 0 
DEO ARE SUB PRINTREL Q 
DEO A RE SUB PR1NTMAN Q 
DECIARE SUB PRINTSPR Q 
DECLARE SUB PRINTTURN 0 
DECLARE SUB ECHO 0 
DECIARE SUB PRINTMAINT 0 
’NASA, LANGLEY RESEARCH CENTER 

MTBM COMPUTATIONAL MODEL - NASA RESEARCH GRANT - 
’DEVF.IOPFD BY C. EBELINC, UNTV OF DAYTON 6/17/94 (updated) 

■ COMBINED PRE/CONCEPTUAL MODEL **•**««** 

’SAVE AS "RAM 3 BAS' OUTPUT REPORT GENERATOR 

COMMON SHARED YR, B, XI, X2, LF, VR1, VR2, VR3, VR4, VR5. VR, AREM 

COMMON SHARED VFMA, TVFMA, SVFMA. CVFMA, OMHMA, OFMHMA, TMA, AMHMA 

COMMON SHARED SCHP, VMH, TOMH, TFMH, APF, PI, P2, P3, WAV, FH42, FH44 

COMMON SHARED FMA11, FMA12, VNAMS, ARR, TNR, TS, SKIP 

COMMON SHARED SMP, TMP, VMOH. WGTF, WING, WF, PWF 

COMMON SHARED ETREL, SRBREL, ETS, SRBS, RT1TLES, ABTF$ 

COMMON SHARED STP, STF., MTE, TME, STF, MTF, TMF, Cl 

DIM SHARED WBS$<35), X(50), NAM$<50). THRS(35), MHMA(35), MH(35), MP(35), OMH(35), FMH(35) 
DIM SHARED SF.LS(35). T(10), CPS<9), CA(35). RF.LF(35), RF(35) 

DIM SHARED GOH(35), LOH(35), TOH(35). OOH(35), ROH(35), R(35), TSKT(35), POH(35) 

DIM SHARED V(15), SNAM$(15), FMAT(35), FMAC(35), FMAS(35), S(35), SMA(35), SMR(35) 

DIM SHARED MW(35), C(3 3), CM(35), OPS<35), TG(35), PWTS(35) 

DIM SHARED FMA(35), PF(35), PA(35), RR(35), W(35), NR(35), FR(35) 

DIM SHARED NRD(35), K(35), Rl(35), R2(35), R305), R4(35), R5(35) 

DIM SHARED PWT1(35), PWT2(35), PWT3(35), PWT405), SRR(35) 

DIM SHARED ETSUB$(5), F.TMBA(5), ETHRSIS), ETABR(5), ETMTR(5), ETR(5), ETCREW(5) 

DIM SHARED SRBSUBS(5), SRBMBA(5), SRBHRS(5), SRBABR(5), SRBMTR(5), SRBR(5), SRBCREW(5) 
DIM SHARED SWBS$(10), MAS(9). MTROS(9) t MTRFS(9) 1 REMS(9), SMT(9), SMTF(9), SC(9), FRS(9) 
DIM SHARED PI(33), CZ(9) 

COMMON SHARED PIQ. C7-0 

COMMON SHARED SWBSSO. MASO. MTROSO. MTRFSQ, REMSQ, SMTO, SMTFQ. SCO. FRS 0 
COMMON SHARED WBSSO. XO, NAMSO. THRSO. MHMAO, MHO, MPO, OMHO, FMHO 
COMMON SHARED SELJO. TO, CPSO, CAO, RELFO, RFO 
COMMON SHARED GOHO, LOHO, TOHO, OOHQ. ROH0, RO. TSKTO, POH0 
COMMON SHARED VO, SNAM$0, FMATO, FMACO. FMASO, SO, SMAO, SMR() 

COMMON SHARED MWQ, CO, CMQ, OP$0, TGO, PWTSO 
COMMON SHARED FMAO, PFQ, PM), RRO, WQ, NRO, FRO 
COMMON SHARED NRD(), KQ, RIO, R20, R30. R4 0, R50 
COMMON SHARED PWT10, PWT2(), PWT30, PWT40, SRRQ 

COMMON SHARED ETSUBSO, ETMBAO, ETHRSO. ETABRO, ETMTRQ, ETRQ, ETCREWO 
COMMON SHARED SRBSUBSQ, SRBMBAO, SRBHRSO, SRBABRO, SRBMTRQ, SRBRQ, SRBCREWQ 


SUB ECHO 

’ MODULE TO PRINT INPUT DATA 
LPRINT TAB(5); RTTTT.EJ 

LPRINT TAB(5), COMMENTS: LPRINT : LPRINT 
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LPRINT TAB(25); "INPUT PARAMETERS & DATA - page I": LPRINT 

LPRINT TAB(t); "VEHICLE IS *; VNAMS; TAB(35); "DATE: "; DATES, TAB(60); ’TIME ", TIMES LPRINT 
LPRINT LPRINT 

LPRINT TAB(5); 'SYSTEM PARAMETER VALUES’: [.PRINT 
LPRfNT TAB(IO); "PARAMFTFR" , TAB(50), "VALUR": LPRINT 
FOR I - 1 TO 25 

LPRINT TAB(IO); NAM$(I); TAB(50); X(l) 

IF I - 2 THFN LPRINT TAB(IO); ’WING SPAN", TAB(50); WING 
NFXT I 

LPRINT : LPRINT : LPRINT TAB(5); "SFCONDARY VARIABLF VALURS* 

LPRINT LPRINT TAB(IO); "VARIABLF", TAB(40); "VALUR": LPRINT 
FOR I - 1 TO 1 3 

LPRINT TAB(IO), SNAM$(I), TAB(40), V(l) 

NFXT I 

LPRINT CHRfc 12); 

LPRINT TAB(25); "INPUT PARAMETRRS & DATA page 2" LPRINT 
LPRINT TAB(5); "SUBSYSTEM WRIGHTS & CALIBRATION FACTORS" 

IF X(16) - 0 THFN LPRINT LPRINT TAB(I); "WBS"; TAB(30); "WRIGHT"; TAB(40); "PCT WGT"; TAB(52); 'MTBM FACTOR"; TAB(65); * MTTR FACTOR"; : GOTO RX2 
LPRINT : LPRINT TAB(I); "WBS"; TAB(30); "WRIGHT"; TAB(40); "MTBM FACTOR", TAB(55); "MTTR FACTOR" 

ADD - 0 

FX2: FOR I - 1 TO 33 

IF OP$(l) " DELETE * THEN GOTO XE1 

ADD - ADD f W(f) 

IF X(16) - OTHEN LPRINT TAB(l); WBSJ(I); TAB(30); W(I); TAB(40), PWTS(I); TAB(52); MW(I); TAB(65); CM(I): GOTO XE1 
LPRrNT TAB(I); WBS$<I); TAB(30); W(I); TAB(40); MW(I); TAB(55); CM(0 
XR I NEXT I 

LPRINT : LPRINT TAB(l); "TOTAL WEIGHT"; TAB(30); ADD; TAB(50); "WEIGHT FACTOR IS PWF 
LPRINT : LPRINT LPRINT TAB(IO); "SCHEDULED MAINTENANCE PERCENT IS"; TAB<45); 100 * SCHP 
[-PRINT CHR$(12); 

LPRINT TAB(25); "INPUT PARAMETERS & DATA - page 3": LPRINT 

LPRINT ; LPRrNT LPRrNT TAB(5); "SUBSYSTEM OPERATING HOURS": LPRINT 

LPRINT TAB(l), "SUBSYSTEM", TAB(30); "PROCESS", TAB(39); "PAD"; TAB(46); "BOOST"; TAB(52); "RETIME"; TAB{6I); "ORBrT"; TAB(68), "REENTRY" 

LPRINT TAB(32); "TIME"; TAB<39); "TIME"; TAB(46); "TIME"; TAB(52); "TO-ORBIT" ; TAB(61); "TIME"; TAB<68) "TIME" 

FOR I - 1 TO 33 

IF OP$<r) - "DELETE" THEN GOTO EX4 

LPRINT TAB(t), WBS$(I); TAB(32); POH(I); TAB(39); GOH(I); TAB(46); I-OH(I); TAB(53); TOH(I); TAB(GO); OOH(I); TAB(67) ROH(I) 

EX4: NEXT 1 
LPRINT CHRS(12); 

LPRINT TAB(25); "INPUT PARAMETERS & DATA page 4* LPRINT 

LPRINT : LPRrNT LPRrNT TAB(5); "SUBSYSTEM COMPUTATION FACTORS": LPRrNT 

LPRINT TAB(l); "SUSBSYTF.M", TAB(28); "TF.CH GRWTH", TAB(40); "CRITICAL'; TAB(55); "REMOVAL"; TAB{70); "PERCENT" 

LPRINT TAB(28); "FACTOR"; TAB{40); "FAIL RATE"; TAB(55), "RATE"; TAB(70); "OFF EQUIP"; LPRINT 
FOR I - 1 TO 33 

IF OP$(I) - "DELETE" THEN GOTO EX5 

LPRINT TAB(l); WBS$(I); TAB(28); TG(I), TAB(40); PA(I); TAB(55), RR(1); TAB(70>; PF(I) 

EX5: NEXT I 
LPRINT CHR$(12); 

LPRINT TAB(25); "INPUT PARAMETERS & DATA - page 5": LPRINT 

LPRINT : LPRINT : LPRrNT TAB(5); 'MORE SUBSYSTEM COMPUTATION FACTORS': LPRINT 

LPRINT TAB(l); "SUSBSYTHM"; TAB{28); "CREW"; TAB<40), "NBR CREWS"; TAB(55); "FRACTION INHERENT" 

LPRINT TAB<28); "SIZE"; TAB(40); " ASGN" ; TAB(55); "FAILURES": LPRrNT 
FOR I - 1 TO 33 

IF OP$(l) - "DELETE" THFN GOTO EX6 

LPRINT TAB(I); WBS$(I); TAB(29); C(I); TAB(40); CA(I); TAB(55); P1(I) 

EX6: NFXT I 
LPRINT CHR$(12); 

LPRINT TAB(25); ‘INPUT PARAMETERS & DATA - page 6": LPRINT 
LPRINT LPRINT LPRrNT TAB(5); "SUBSYSTEM REDUNDANCY": I.PRINT 
LPRINT TAB(l); "SUSBSYTEM"; TAB(28); "REDUNDANT"; TAB(45); ’ MIN NBR" 

LPRINT TAB(28); "SUBSYS"; TAB{45); "REQUIRED": LPRINT 
FOR I - 1 TO 33 

IF OP*I) - "DELETE" THEN GOTO EY6 
IF K(I) - 0 THEN K(I) - 1 

LPRINT TAB(1); WBS$<I); TAB(29); NRD(I); TAB(45); K(I) 

EY6: NEXT I 
LPRINT CHR$<I2); 

LPRINT TAB(25); "INPUT PARAMETERS & DATA page 7": LPRINT 

URINT : LPRINT : LPRINT TAB(5); "SHUTTLE (FILE MAINTAINED) UTILIZED VALUES": LPRINT 
LPRINT TAB(I), "SUSBSYTEM"; TAB(30); "MTBM"; TAB(50); "MTTR", 

FOR I - 1 TO 33 

IF OP$(!) - "DELETE" THEN GOTO EX7 
IF SELS(0 < > "SHUTTLE" THEN GOTO EX7 
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I -PRINT TAB(I); WBS$<1); TAB(30); SMA(I), TAB(50). SMR(I); 

F.X7: NEXT I 
I -PRINT CHRS(12); 

END SUB 

SUB ETSRB 

1 FT/ BOOSTER ROCKET MODULE 
I .PRINT TAB(5); RTITLEj 

LPRINT TAB(5), COMMENTS: I PRINT LPRINT 
LPRINT TAB(25); ’ET/LRB REPORT*: l.PRINT 

l.PRINT TAB(l), * VEHICl-E IS VNAMS, TAB(35); 'DATE: DATES, TAB(60); 'TIME: \ TIMES: LPRINT 

LPRINT 

IE ETREL - 1 THEN GOTO LIQ 

LPRINT TAB(20), ‘EXTERNAL FUEL TANK INPUT DATA* 

LPRINT 

LPRINT TAB(I ), *NBR", TAB(5); "SUBSYSTEM*; TAB(18), 'MTBM', TAB(26); ’OPER HRS’, TAB(36); "CRIT FAIL RT\ TAB(50); *MTTR', TAB(59), *CRF.W SIZE* 
LPRINT 

TOR l - 1 TO 5 

LPRINT TAB(I); I, TAB(5), ETSUB$<I); TAB(18); ETMBA(I); TAB(26), ETHRS(I), TAB(36); FTABR(I), TAB(50); ETMTR(I); TAB(59). ETCREW(I) 

NEXT 1 
LPRINT 

LPRINT TAB(5); "SCHD MAJNT AS A PCT OF UNSCH MAINT*; ETS: LPRINT 
LPRINT ETREL - I 

LPRINT TAB(20); 'COMPUTED*; TAB(40); ’MISSION*; TAB(59); 'MANHR DRIVEN* 

LPRINT TAB(l); ’SUBSYSTEM*; TAB(18), * RF.LIABII.ITY*, TAB(32); "UNSCH MANHRS*; TAB(47); *SCH MANHRS*; TAB(59), ‘MANPWR*: l.PRINT 
STE - 0: MTF. - 0: TME - 0 
FOR I - 1 TO 5 

ETR(I) - EXP(-ETHRSO) / (ETMBA(I) / ETABR(I))) 

ETREL - ETREL * F.TR(I) 

TF. - (ETHRS(I) / ETMBA(I)) * ETMTR(I) • F.TCREW(I) 

A3 - (TF. ♦ ETS • TE) • X(15) / (12 * X(l 1) * (l - X(12))) 

A3 - INT(A3 i 999) 

TME - TME t A3 

MTF. - MTE t ETHRS(I) / ETMBA(I) 

STE - STE F TF. 

LPRINT TAB{5), ETSUBS(I); TAB(20); ETR(I); TAB(32); TF.; TAB(47); ETS * TE; TAB(60); A3 
NEXT I 

LPRINT 

LPRINT TAB(l), "OVERALL ET *, TAB(20); ETREL; TAB(32); STE, TAB{47); ETS • STE; TAB(60); TME 

LIQ; IF SR BREL - 1 THEN GOTO BOT2 
LPRINT : LPRINT 

LPRINT TAB(20), ’LIQUID ROCKET BOOSTER INPUT DATA* 

LPRINT TAB(l); "NBR", TAB(5); ’SUBSYSTEM’. TAB(18); *MTBM’, TAB(26); "OPF.R HRS’; TAB(36); *CRIT FAIL RT*; TAB(50); *MTTR*, TAB(59); ’CREW SIZE* 
LPRINT 

FOR 1 - 1 TO 4 

LPRINT TAB( 1 ); I; TAB(5); SRBSUB$(I); TAB(I8); SRBMBA(I), TAB(26); SRBHRS(I); TAB(36); SRBABR(I); TAB(50); SRBMTR(I); TAB(59); SRBCREW(I) 

NEXT I 
LPRINT 

LPRINT TAB(5); ’SCHD MAINT AS A PCT OF UNSCH MAINT*; SRBS: LPRINT 
I.PR1NT : SRBRF.L - I : TME - 0: MTF - 0: STF - 0 

LPRINT T AB(20), ’COMPUTED*, TAB(40); ’MISSION*; TAB(6l ); ’MANHR DRIVEN* 

LPRINT TAB(l); ‘SUBSYSTEM*; TAB<18); ’RELIABILITY*; TAB(32); ’UNSCH MANHRS"; TAB(47); ’SCHED MANHRS*; TAB<61); ‘MANPWR*: LPRINT 
FOR I - 1 TO 4 

SRBR(I) - EXP(-SRBHRS(I) / (SRBMBA(I) / SRBABR(I))) 

SRBRF.L - SRBRF.L • SRBR(I) 

TF - (SRBHRS(I) / SRBMBA(l)) * SRBMTR(I) • SRBCREW(I) 

A4 - (TF + TF * SRBS) * X(15) / (12 * X( 1 1) *(1 - X(12))) 

A4 - INT(A4 i 999) 

TME - TMF I A4 

MTF - MTE + SRBHRS(l) / SRBMBA(I) 

STF - STF f TF 

LPRINT TAB(5); SRBSUBKI), TAB<20); SRBR(I); TAB(32); TF; TAB(47), SRBS * TF; TAB(61); A4 
NEXT I 

LPRINT 

LPRINT TAB(l); ’OVERALL LRB’, TAB(20), SRBRF.L; TAB(32), STF, TAB(47), SRBS • STF; TAB(61), TMF 

BOT2: LPRINT CHR$(12); 

END SUB 

SUB PRINTMAINT 

* LPRINT MODULE FOR MAINTAINABILITY REPORT 
X - 0: Y - 0 7. - 0: K - 0 AVIONICS ROLLUP 
FOR I - 19 TO 24 
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IP OP$(l) - "DPI .PTE* THEN GOTO SK7 
K - K * l 

X - X f NRD(I) *(1 - PI(I)) * POH(I) / EMAT(I) * THRS(I) / FMAS(I) 

Y - Y » MHMA(I) 

7 - 7 » (NRD(I) * (1 - PI(I)) * POH(I) / FMAT(I) » THRS(l) / FMAS(I)) * MHMA(I) 

SK7; NEXT I 
YA - Y / K 
IO - I: IF. - 33 

LPRINT TAB(5), R TITLES; [.PRINT 

[.PRINT TAB<5); COMMENTS: [.PRINT [.PRINT 

LPRINT TAB(20), "MAINTAIN A BI I. TY REPORT - at mission nbr X(24); " - page ! " ; LPRINT 

[.PRINT TAB(l); "VEHICLE IS '; VNAMS. TAB(35); "DATE; DATES; TAB(60), "TIME: TIMES: LPRINT 

LPRINT TAB( 1 ); "WBS", TAB(30). "MAINT ACTIONS/MSN"; TAB(50); "AVG MANHR7MA", TAB(65); "AVG MANHRS/MSN" 

LPRINT 

POR 1 - IO TO IE 

IP OPSiO - "DELETE" THEN GOTO SKM 

LPRJNT TAB(I); WBSS<[); TAB(32); NRD(I) * (1 - PI(I)) * POH(I) / EMAT(I) I THRS(I) t FMAS(I); TAB(50), MHMA(I) TAB(65)’ (NRD(I) 
THRS(f) / PMAS(I)) * MHMA(I) 

IE [ - 24 THEN LPRINT TAB(5); "AVIONICS ROLLUP"; TAB(29). X; TAB<47); YA; "(AVG)"; TAB(63); Z 
SKM: NEXT I 
LPRINT 

LPRINT TAB(5); "TOTA1.S"; TAB(32); TMA, TAB(47), AMHMA; "WT-AVG". TAB(65j, VMH 
LPRINT CHRSf 12); 


(I - P1(I)) * POH(I) / FMAT(I) I 


IO - 1 : IE - 33 

LPRINT TAB(20), "MAINT AIN ABILTY REPORT - at mission nbr "; X(24); " page 2" 

X - 0: Y - 0: 7. - 0: K - 0 AVIONICS ROLLUP 
EOR I - 19 TO 24 

IF OP$<0 - "DELETE" THEN GOTO SK6 
K - K l 1 
X - X i OMH(I) 

Y - Y l FMH(I) 

7 - 7 \ l - PF(I) 

SK6: NEXT I 
7.A - 7 / K 
LPRINT ; LPRINT 

LPRINT TAB(l); "VEHICLE IS VNAMS, TAB(35), "DATE: \ DATES; TAB(60); "TIME: "; TIMES: LPRINT 
LPRINT TAB(l); "WBS"; TAB(32); "ON-VEH MH"; TAB(47); "OFF VEH MH"; TAB(62); "FRACTION ON-VEH": LPRINT 
FOR I - IO TO IE 

IF OPS(I) - "DELETE" THEN GOTO SK5 

LPRINT TAB(l); WBSS(I); TAB(32); OMH(I), TAB(50); FMH(I), TAB(65); 1 - PF(I) 

IF I - 24THF.N LPRINT TAB(5); "AVIONICS ROLLUP"; TAB(29); X; TAB(47); Y; TAB(62); ZA; "(AVG)' 

SICS : NEXT I 
LPRINT : LPRINT 

LPRINT TAB(3); "UNSCHEDULED"; TAB(32); TOMH, TAB(50); TFMH, TAB(65), APE, "(AVG)": LPRINT 
LPRINT TAB(5); "SCHEDULED"; TAB(32), 98 * SCHP * TOMH; TAB(50); 02 • SCHP * TOMH: LPRINT 
[.PRINT TAB{5), "TOTAL", TAB(32); TOMH t .98 * SCHP * TOMH; TAB(50); TFMH t 02 * SCHP * TOMH 
LPRINT CHRS( 12); 


X - 0; Y - 0: ’AVIONICS ROLLUP 
FOR I - 19 TO 24 

IF OPS(I) - "DELETE* THEN GOTO PY8 
X - X f NRD(I) • (1 - P[([)) * POH(I) / FMAT(I) 

Y - Y I NRD(I) * THRS(l) / FMAS(I) 

PY8: NEXT I 
IO - 1; IF. - 33 
TXX - 0: TYY - 0 

PY7: LPRINT TAB(20); "MAINT AIN ABILTY REPORT - at mission nbr. ", X(24); ’ - page 3" 

LPRINT 

LPRINT TAB(5); "Note: Ground processing MA’s consist of induced and no defect MA’s, * 

LPRINT TAB(5); "Mission MA j arc inherent equipment failures" 

LPRINT 

LPRINT TAB(l); "WBS"; TAB(32); "GRND PROC MA", TAB(50); 'MSN MA"; TAB(65); "TOTAL MA" 
LPRINT 

FOR I - IO TO IE 

rF OP$(I) - "DELETE" THEN GOTO PY9 

XX - NRD(I) * (1 - P!(I)) * POH(I) / FMAT(I): YY - NRD(I) * THRS(I) / FMAS(I) 

TXX - TXX f XX: TYY - TYY ♦ YY 

[.PRINT TAB(l), WBS$(I); TAB(32); XX; TAB(50), YY, TAB(65), XX \ YY 

IF I - 24 THEN LPRINT TAB(5); "AVIONICS ROLLUP"; TAB(29); X; TAB<47); Y; TAB(62), X f Y 
PY9: NEXT I 
LPREMT 

LPRINT TAB(5); "TOTAL"; TAB(32); TXX; TAB(50); TYY, TAB(65); TXX + TYY 
LPRINT CHR$(12); 

END SUB 
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SUB PRINTMAN 
'I. PRINT MANPOWER MODULE. 

X - 0 Y - 0 7. - 0 AVIONICS ROLLUP 
FOR I - 19 TO 24 

IF OP$<0 - 'DELETE" THEN GOTO SK8 
X - X ♦ MHO) 

7 - 7 l MP(I) 

SK8 NEXT I 

Y - Xt 15) * X M2 
MT - 0 

IO - 1: IF - 33 ASTP - 0 

I .PRINT TAB(5), R TITLES: (.PRINT 

I. PRINT TAB(5); COMMENTS LPR1NT LPRINT 

l .PRINT TAB(20); ’MANPOWER REPORT - at mission nbr .*; X(24); ’ * [.PRINT 

I. PRINT TAB(l); 'VEHICLE IS VNAMS; TAB(35); 'DATE: DATES, TAB(60); 'TIME: TIMES: LPRINT 

LPRINT TAB(5); 'AVAIL HRS/MO^'; X(1 1); TAB(40); 'INDIRECT WORK-’; 100 * X(!2); *%' 

[.PRINT "manpwr is computed from manhrs/mo divided by avail direct hrs per mo per person* 

LPRINT 'nbr crews is computed from manpwr divided by avg crew* 

IPRINT 

LPRINT TAB(l); *WBS*, TAB(27), "MANHRS/MSN’; TAB(42); 'MANHRS/MO*, TAB(58); "MANPWR", TAB(65); AVG CREW 
IPRINT 


FOR I - IO TO IF. 

IE OPS<I) - "DELETE* THEN GOTO PMl 
IF I > - 19 AND 1 < - 24 THEN ASTP - ASTP t C(I) 

LPRINT TAB(1); WBS$(I); TAB(30); MH(f); TAB<45); X(15) * MH(I) / 12; TAB(59); MP(I); TAB(63); C<1) 

IF 1 _ 24 THEN LPRINT TAB(5); 'AVIONICS ROLLUP*, TAB(28), X; TAB(43); Y; TAB(58); Z; TAB(63); ASTP 
MT - MT f CA(1) • CIO 
PMl: NEXT 1 


LPRINT 

l PRINT LPRINT TAB(5), 'UNSCHF.DUIP.D*, TAB(30), VMH; TAB(45), VMH * X(15) / 12; TAB(59); TMP - SMP; TAB<65); STP 
I PRINT I PRINT TAB(5V *SCHEDUI.ED*; TAB<30); SCHP * TOMH; TAB(45); X(15) * SCHP • TOMH / 12; TAB<59); SMP; TAB(65), X(14) 

LPRINT LPRINT TAB(5); 'TOTAL*; TAB(30). VMH I SCHP * TOMH, TAB(45), (VMH 4 SCHP * TOMH) • X(I5) / 12; TAB(59); TMP; TAB(65). STP 
[PRINT : IPRINT TAB(l); *Tot personnel assigned - SUM (avg crew size x asgd crews) I schd manpwr’; TAB(75); INT(MT) I SMP 


t X(t4): COI.OR 14 


LPRINT CHRS( 12); 
END SUB 


SUB PRINTRF.L 

LPRINT MODULE FOR RELIABILITY REPORT ******* 

X - 0: Y - 0: Z - 0 AVIONICS ROLLUP 
FOR I - 19 TO 24 

IF OP*I) - ’DELETE* THEN GOTO NX l 
IF RF.LF(I) - 1 THEN GOTO NX1 
X — X t 1 / FMA(D 
Y - Y t 1/ FMAT(I) 

7. - 7. \ l / FMAS(T) 

NX I : NEXT I 

IE X > 0 THEN XA - 1/ X 
IF Y > 0 THEN YA - 1 / Y 
IE Z > 0 THEN ZA - l / 7 
IO - I : IF. - 33 
MNEMA - 0 

IPRINT TAB(5); RTITLES: LPRINT : LPRINT 

LPRINT TAB< 20); "RELIABILITY REPORT - it miwioo nbr *; X(24); page 1": LPRINT 

LPRINT TAB(I); ’VEHICLE IS *, VNAMS; TAB(35); 'DATE: *; DATES; TAB(60); 'TIME: ’; TIMES: LPRINT 

LPRINT “all MTBM’s arc for a single subsystem, e g. one engine* : LPRINT 

LPRINT TAB(l); *WBS\ TAB(26); 'TECH/GROWTH MTBM*; TAB(45); *GRND PROC MTBM’; TAB(61); ’MISSION MTBM’ 

LPRINT TAB(29); *(aJI MA’s)*; TAB(45); ’(External MA s)*; TAB(61); '(inherent MA’s)’ 

FOR I - IO TO IE 

IF OPS(I) - "DELETE* THEN GOTO SKI 

MNEMA - MNFMA t (1 - Pl(l)) / FMAT(I) 

IE 1 - 9 THEN LPRINT TAB<1); WBS$(I), * MSN’S/EAILURE *; TAB(35); FMAT(I); TAB(48); FMAT(I) / (1 - PI(1)); TAB(61); FMAS(I) 
IF I < > 9 THEN IPRINT TAB(1); WBSJ(D; TAB(35); FMAT(0; TAB(48); FMAT(I) / (1 - PI(I)); TAB(61); FMAS<I) 

IF I - 24 THEN LPRINT TAB<5); 'AVIONICS ROLLUP*; TAB(32); XA; TAB(45); YA; TAB(58); ZA 
SKI: NEXT I 


IPRINT LPRINT 

LPRINT TAB(5), 'VEHICLE*; TAB(35); TVFMA, TAB(48), I / MNFMA; TAB(61); SVFMA 
IPRINT CHRS( 12); 

X - 0: Y - 0: 7. - 1 : K - 0 AVIONICS ROLLUP 
FOR 1 - 19 TO 24 

IF OP$(I> - "DELETE* THEN GOTO NY2 
K-K I I 
X - X \ PA(1) 

Y - Y ♦ 1 / FMAC(I): YA - 1/ Y 
7 - 7. * R(I) 
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NY2 NEXT I 

IF K - 0 THEN K - 1 
XA - X / K 
IO — 1 : IF* — 33 

LPRINT TAR(20); "REI. I ABILITY RFPORT - at mission nbr . X(24); ’ - page 2*; LPRINT 

LPRINT TAB(5), COMMENTS I. PRINT I. PRINT 

I. PRINT TAB(!); ‘VEHICLE IS \ VNAMJ; TAB(35); ’DATF: DATES; TAR(60), "TIME; "; TIMES: LPRINT 

FPRINT "critical MTBM’s arc for a single subsystem, c.g one engine"; LPRINT 

[.PRINT TAB(I), "WBS"; TAR(28), "CRITICAL FAILURE*; TAB(48), "CRITICAL"; TAB(60); "SUBSYS NON-’ 

IF X(25) - 0 THF.N LPRINT TAB(28); "RATF.-gmd I air"; TAB(48); "MTBM"; TAB(60); "REDUNDANT MSN RFL’ 
IF X(23) - I THF.N [.PRINT TAB(28), "RATF-air only"; TAB(48); "MTBM"; TAB160), "REDUNDANT MSN RFL" 

FOR I * IO TO IF. 

IF OP$(I) - "DF.LF.TF" THEN GOTO SK2 

LPRINT TAB( 1 ); WBSS(I); TAB(33); PA(I); TAB(48); FMAC(I); TAB(65); R(I) 

IF 1 - 24 THEN LPRINT TAB(5); "AVIONICS ROLLUP", TAB(27); XA; "AVG"; TAR(45), YA, TAB(62); 7 
SK2: NEXT I 
LPRINT ; LPRINT 

LPRINT TAB(5), "VF.HICLF", TAB(48), CVFMA; TAB{65); VR 
LPRINT CHR $(12), 

IO - 1 IF - 33 

LPRINT TAB(20); "RELIABILITY RFPORT at mission nbr ", X(24); * page 3": LPRINT 
X - I; Y - I; 7. - l AVIONICS ROLLUP 
FOR I - 1 9 TO 24 

IF OPS<I) - "DELETE* THF.N GOTO NY3 
X - X * R I (I) 

Y - Y * R2(!) 

Z - Z • R3(I) 

NY3 : NEXT I 

LPRINT TAB(I), "VEHICLE IS ", VNAM$; TAB(35). "DATE; "; DATES; TAB(60), "TIME: TIMES; LPRINT 

I.PRINT "reliabilities based upon redundancy" 

[.PRINT TAB(I), "WBS"; TAB(33); "LAUNCH"; TAB(45); "END OF"; TAB(60); "ORBIT" 

LPRINT TAB(33); ’TIME"; TAB(45); "POWER FLT"; TAB(60); "INSERTION"; LPRINT 
FOR I - 10 TO IE 

IF OPS(I) - "DELETE" THEN GOTO SK3 

I.PRINT TAB(I); WBSS(I), TAB{33); R 1 (I), TAB(45), R2(l); TAB(60), R3(l) 

IF I - 24 THF.N [.PRINT TAB(5); "AVIONICS ROLLUP". TAB(30); X, TAB<42); Y; TAB(57); 7. 

SK3; NEXT I 
LPRINT ; LPRINT 

[.PRINT TAB(5); "VEHICLE*; TAB(33); VRl; TAB(45); VR2, TAB(60); VR3 
LPRINT CHR$(12); 

X — 1 ; Y - 1 ; 7. - 1 AVIONICS ROLLUP 
FOR [ - 19 TO 24 

IF OPS(I) - "DF.LF.TF" THF.N GOTO NY4 
X - X * R4(I) 

Y - Y * R5(l) 

NY4: NEXT I 


10 - 1 : IF. - 33 

LPRINT TAB(20); "RELIABILITY REPORT - at mission nbr "; X(24); " - page 4": LPRINT 

LPRINT TAB(l); "VEHICLE IS "; VNAMS; TAB(35); "DATE; ", DATES; TAB(60); "TTME; TIMES: LPRINT 

LPRINT "reliabilities based upon redundancy" 

LPRINT TAB(l); "WBS"; TAB(45), "REENTRY"; TAB<60); "MISSION" 

LPRINT TAB(60); “COMPLETION": LPRINT 
FOR I - IO TO IE 

IF OPS(0 - "DELETE" THEN GOTO SK4 

I.PRINT TAB( I ); WBSS(I); TAB(45), R4(I); TAB(60); R5(I) 

IF I - 24 THEN LPRINT TAB(5); "AVIONICS ROLLUP"; TAB(42); X; TAB(57); Y 
SK4 NEXT I 
I.PRINT : LPRINT 

LPRINT TAB(5); "VEHICLE"; TAB(45); VR4, TAB{60); VR5 
I.PRINT CHR$<I2); 

F.ND SUB 

SUB PRINTSPR 
’ LPRINT SPARES RESULTS 

X-0;Y — 0:7 — 0:K = 0 AVIONICS ROLLUP 
FOR I - 19 TO 24 

IF OPS(I) - "DF.LF.TF" THEN GOTO SX7 
K-KI 1 
X - X ♦ RR(!) 

Y - Y » NR(I) 

7 - 7 t SCO 
7X - ZX I FR(I) 
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SX7 NF.XT I 
XA - X / K 
ZX - 7.X i K 
IO - 1: IF. - 33 

l. PRINT TAB(5>. R7TTLES: LPRINT 

[-PRINT TAB(5), COMMENTS [ PRINT I. PRINT 

I. PRINT TAB(20); "SUBSYSTEM SPARES REPORT at mission nbr.*; X(24); " LPRINT 

I. PRINT TAB(l); 'VEHICLE IS \ VNAM$; TAB<35); 'DATE: *; DATES; TAB(60); 'TIME: ", TIMES: LPRINT 

LPRINT TAB(5), "NOTE falures arc assumed to be Poisson": LPRINT 

LPRINT TAB(32); 'REMOVAL"; TAB(42); "MEAN DEMAND", TAB(56); "SPARES’, TAB(65); "EFFECTIVE" 

LPRINT TAB(l), "WBS"; TAB(32); "RATE/MA*; TAB(42). 'PER MISSION", TAB(56); * RQMT", TAB(65); "PILL RATE" 

LPRINT 

FOR 1 - IO TO IE 

IF OPS<I) - "DELETE" THEN GOTO SX9 

LPRINT TABU), WBS$<I); TAB(30), RR(1); TAB(41); NR(I); TAB(55); S(I). TAB(63); FR(I) 

IF I - 24 THEN LPRINT TAB(5); "AVIONICS ROLLUP"; TAB(25); XA, "(AVG)'; TAB(40); Y; TAB{56), Z; TAB(62); ZX; ’(AVG)* 

SX9: NEXT I 
LPRINT LPRINT 

LPRINT TAB(5), ’TOTAI.S", TAB(27); ARR; ’(AVG)’; TAB(43); TNR; TAB(55); TS 
LPRINT CHRS<12); 

END SUB 

SUB PR1NTSUM 

LPRINT TAB(5); RTITLFS: LPRINT 

LPRINT TAB(5), COMMENTS: LPRINT : LPRINT 

LPRINT TAB(20), "SYSTEM PERFORMANCE SUMMARY - at mission nbr ", X(24); ’ - page 1": LPRINT 
LPRINT TAB(1); "VEHICLE IS "; VNAMS; TAB(35); 'DATE: ’; DATES; TAB<60); ’TIME: "; TIMES: LPRINT 
LPRINT : LPRINT TAB (30); "RELIABILITY REPORT *: LPRINT 
LPRINT : 

LPRINT TAB(l); "CATEGORY". TAB(33); "LAUNCH", TAB(45); "END OF"; TAB(60); "ORBIT" 

LPRINT TAB(33); ’TIME", TAB(45); "POWER FLT’; TAB(60); "INSERTION" 

LPRINT 

LPRINT TAB(5), "VEHICLE’, TAB{33); VR1 . TAB(45); VR2; TAB(60); VR3 

IF SRBRFL < 1 THEN LPRINT TAB<5); "VEHICLE I LRB’; TAB(33); SRBREL* VR1; TAB(45); SRBREL * VR2; TAB(60); SRBREL * VR3 

IFETREL < 1 THEN LPRINT T A B(5), "VEHICLE 4 LRB 4-ET’; TAB(33); ETREL * SRBREL * VR1 ; TAB(45); ETREL • SRBREL * VR2; TAB(60); ETREL • SRBREL * VR3 
LPRINT : COI-OR 7 

LPRINT TAB(l); TAB(45); "REENTRY"; TAB(60), "MISSION" 

LPRINT TAB(60); "COMPLETION* 

LPRINT TAB(5); "VEHICLE"; TAB(45); VR4, TAB(60); VR5 

IF SRBREL < 1 THEN LPRINT TAB(5); "VEHICU 7 4 LRB", TAB(45); SRBREL * VR4; TAB(€0); SRBREL * VR5 

IF ETREL < 1 THEN LPRINT TAB(5); ’VEHICLE 4- LRB 4 ET"; TAB(45); ETREL • SRBREL * VR4; TAB(60); ETREL * SRBREL • VR5 

LPRINT 


IF MTE - 0 THEN MTE * I 
LPRINT 
LPRINT 

LPRINT : LPRINT TAB(30); "MAINTAINABILITY REPORT": LPRINT T A B(66), ’UNSCHED’ 

LPRINT TAB(l); ’CATEGORY"; TAB(28); "MAINT ACTIONS/MSN'; TAB(48); ’WT-AVG MANHR/MA’; TAB(66); ’AVG MANHRS/MSN" 
LPRINT 

LPRINT TAB(5); "VEHICLE’; TAB(32), TMA; TAB(50); AMHMA; TAB(65); VMH 

IF ETREL < 1 THEN LPRINT TAB(5); "EXTERNAL TANK"; TAB<32); MTE; TAB<50); STE / MTE; TAB(65); STE 
IF SRBREL < I THEN LPRINT TAB(5); "BOOSTER"; TAB(32); MTF; TAB(50); STF / MTF; TAB(65); STF 
IMPRINT 

LPRINT TAB(32); "ON-VF.H MH", TAB(47); ’OFF VEH MH"; TAB(62); ’FRACTION ON-VEH" 

LPRINT TAB(5); ’VEH1CIJS’ 

LPRINT TAB(7); "UNSCHF.D"; TAB(32); TOMH; TAB(50); TFMH 

LPRINT TAB(7); "SCHEDULED*, TAB<32); ,98 * SCHP * TOMH; TAB(50); .02 • SCHP * TOMH 

LPRINT TAB(7); "TOTALS", TAB(32); TOMH 4 .98 * SCHP • TOMH; TAB(50); TFMH 4 .02 * SCHP • TOMH; TAB<65), APF; ’(AVG)’ 
LPRINT TAB(5); "EXTERNAL TANK" 

IF ETREL < I THEN LPRINT TAB(7), "SCHED/UNSCHED"; TAB(32); STE + ETS * STE 
LPRINT TAB(5); "BOOSTER" 

IF ETREL < t THEN LPRINT TAB(7); "SCHED/UNSCHED"; TAB(32); STF 4 SRBS * STF 
LPRINT CHRS(12); 

SCMP - X(14): Bl — 0; B4 — 0: A2 — 0: B2 — 0: Al = 0 

LPRINT TAB(20); "SYSTEM PERFORMANCE SUMMARY - at minion obr ", X(24); ’ - page 2’: LPRINT 
LPRINT TAB(l); "VEHICLE IS "; VNAMS; TAB(35), "DATE: ’; DATES; TAB(60); ’TIME: "; TIMES: LPRINT 
LPRINT : LPRINT : LPRINT TAB(30); "MANPOWER/ SPA RES REPORT’ 

LPRINT : LPRINT TAB<5); ’SPARES- VEHICLE’; TAB(30); TS 
[.PRINT 

LPRINT TAB(l); ’CATEGORY’; TAB(25); ’MANHR DRIVEN"; TAB(40); "MANHR DRIVEN"; TAB(55); ’CREW SZ’; TAB(65); "TOT CREW’ 
LPRINT TAB(25); "AGGREGATE"; TAB(40); "BY SUBSYS"; TAB(55); "BY SUBSYS"; TAB(65); "BY SUBSYS’ 

LPRINT 

LPRINT TAB(3); "VEHICLE* 

A2 = (VMH * X(15)) / (12 * X(ll) * (1 - X(12))) 

A2 - INT(A2 4- .999) 

B2 - (SCHP * TOMH * X(15)) / (12 • X(11) * (1 - X(I2))) 
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B2 - INT(B2 4 999) 

LPRINT TAB(5); "UNSCH MANPWR*; TAB<25); A2; TAB(40), TMP - SMP, TAB(55); STP, TAB(65); Cl 
LPRINT TAB(5); "SCHED MANPWR", TAB(25); B2; TAB<40); SMP; TAB(55); SCMP; TAB(65); SCMP 
LPRINT TAB(5); "TOTAL", TAB(25); A2 t B2; TAB(40); TMP, TAB(55); STP * SCMP, TAB(65); Cl 4 SCMP 
LPRINT TAB(3); "EXT TANK- 
A’ - ((ETS * STF. ♦ STE) * X( 1 5)) / (12 * X( 1 1 ) * (I - X( 1 2))) 

A1 - INT(A 1 4 999) 

Bl ~ ETCREW(l) 4 ETCREW(2) 4 ETCREW{3) ♦ ETCREW(4) i RTCRRW(5) 

Bl - INT(B 1 « 999) 

IP RTRRL < 1 THRN LPRINT TAB(5); "SCHD/UNSCH MANPWR*; TAB(25); Al, TAB<40); TMR; TAB(55) Bl TAB(65) BI 
LPRINT TAB(3), "LRB" 

A4 - ((SRBS * STT 4 STF) « X(I5)) / (12 * X(l i) * (I - X(!2))) 

A4 - INT(A4 \ .999) 

B4 - SRBCRRW(l) I SRBCRRW(2) 4 SRBCRF.W(3) 4 SRBCRRW(4) 

B4 - INT(B4 4 .999) 

IF RTRRL - 1 THRN B! - 0 TMR - 0 Al - 0 
IF SRBREL - I THRN B4 - 0: TMF - 0: A4 - 0 

IF SRBRFL < I THRN LPRINT TAB(5); *SCHD/UNSCH MANPWR", TAB(25); A4; TAB(40); TMF; TAB(55); B4; TAB<65); B4 

LPRINT: LPRINT TAB( 10); "TOTALS"; TAB(25); A2 t B2 t Al l A4; TAB(40); TMP 4 TMR 4 TMF; TAB(55); STP 4 SCMP I Bl * B4 TAB(65) Cl 4 SCMP 4 Bl 
I B4 

LPRINT 

’ VEHICLE TURN TIME SUMMARY 
TT - 0: T1 - 0: TMAX - 0 
SUM - 0: CT - 0: SUMC - 0 
FOR I - 1 TO 33 

IF OP$(l) - -DFLRTR* THEN GOTO N! 

CT - CT l 1 
SUMC - SUMC I C(!) 

IF SRI4(I) - "SHUTTLE" THRN TSKT(I) - SMR(I) EI.SE TSKT(I) - (1 - PF(])) * MHMA(I) / C(I) 

TI - (NRD(I) * (t - PI(I)) * POH(I) / FMAT(I) 4 THRS(0 / FMAS(I)) * TSKT(I) / CA(I) 

IF TI > TMAX THEN TMAX — TI : JJ — I 

TT - TT 4 TI 

SUM - SUM f TSKT(I) 

Nl; NEXT I 

SCHT - .98 * SCHP * TOMH / X(14) 

GTT - TT 4 SCHT: ATSK - SUM / CT 
IF TMAX < SCHT THEN TMAX - SCHT 
LPRINT 

LPRINT : LPRINT TAB(35); "VEHICLE TURN TIMES’ LPRINT 
LPRINT TAB(35); "MIN TURN TIME"; TAB(55); "MAX TURN TIME" 

LPRINT TAB(I); 'ONE SHIFT/DAY MAINTENANCE" 

RVTT - (T(0) 4 T(4))/ 24 4 TMAX / 8 I X(17) f X(18) 

MDVTT - (T(0) 4 T(4)) / 24 4 (TT 4 SCHT) / 8 I X(17) 4 X(18) 

LPRINT TAB(5); "TOT VEHICLE TURNAROUND TIME", TAB(35); DVTT; "DAYS’; TAB(55); MDVTT 
LPRINT TAB(5); "AVG M 1 SS I ONS/YR7 VEHICLE"; TAB(35); 12*21/ DVTT; TAB<55); 12 * 21 / MDVTT 

LPRINT TAB<5); "COMPUTED FLEET SIZE TAB(35); INT((X(15) / 12) / (21 / DVTT) f 99); TAB(55); INT((X(15) / 12) / (21 / MDVTT) 4 99) 

LPRINT 

LPRINT TAB(I); 'TWO SHIFTS/DAY MAINTENANCE" 

DVTT - (T(0) 4 T(4)) / 24 4 (TMAX) / 16 4 X(17) 4- X<18) 

MDVTT - (T(0) 4 T(4))/ 24 4 (TT 4 SCHT) / 16 F X(17) f X(18) 

LPRINT TAB(5); "TOT VEHICLE TURNAROUND TIME"; TAB(35). DVTT; "DAYS"; TAB(55); MDVTT 
[.PRINT TAB(5); "AVG MISSIONS/YR/VEHTCLR"; TAB(35); 12 * 21 / DVTT, TAB(55); 12*21/ MDVTT 

I.PRINT TAB(5); "COMPUTED FLEET SIZE "; TAB(35); INT((X(15) / 12) / (21 / DVTT) 4 ,99); TAB05); INT((X(15) / 12) / (21 / MDVTT) t 99) 

LPRINT 

LPRINT TAB(l); "THREE SHIFTS/DAY MAINTENANCE" 

DVTT - (T(0) 4 T(4)) / 24 F TMAX / 24 F X(17) F X(18) 

MDVTT - (T(0) 4 T(4)) / 24 4 (TT 4 SCHT) / 24 F X(I7) F X(18) 

LPRINT TAB(5); "TOT VEHICLE TURNAROUND TIME"; TAB05); DVTT; "DAYS’; TAB(55); MDVTT 
LPRINT TAB(5); "AVG MISSIONS/YR/VEHICLE*; TAB(35>; 12*21/ DVTT; TAB(55); 12 * 21 / MDVTT 

LPRINT TAB(5); "COMPUTED FLEET SIZE TAB<35); INT((X(15) / 12) / (21 i DVTT) F .99); TAB(55); rNT((X(l5) / 12) / (21 / MDVTT) 4 99) 

[.PRINT CHR*12); 

END SUB 

SUB PRINTTURN 

MODULE TO I.PRINT VEHICLE TURN TIME 
TT — 0: TI - 0: TMAX - 0 
SUM - 0 CT - 0: SUMC - 0 
FOR I - 1 TO 33 

IF OP$(I) - "DELETE" THEN GOTO TNI 
CT - CT F l 

SUMC - SUMC 4 C(l) 

IF SF.L$(I) - "SHUTTLE* THEN TSKT(I) - SMR(I) ELSE TSKT(I) - (1 - PF(!)) • MHMA(t) / C(I) 

TI ^ (NRD(I) * (1 - PI(0) * POH(I) / FMAT(I) F THRS(I) / FMAS(I)) * TSKT(J) / CA(I) 

IF TI > TMAX THEN TMAX — TI: JJ - I 
TT - TT F TI 
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SUM - SUM ♦ TSKT(l) 

TNI: NFXT I 

AVCRF.W - SUMC / CT 
SCHT - 98 • SCHP * TOMH / X(U) 

GTT - TT f SCHT ATSK - SUM / CT 
W - 0: X - 0: Y - 0: Z - 0: K - 0‘ AVIONICS ROLLUP 
FOR I - 19 TO 24 

IF OP*0 - 'DELETE' THFN GOTO TX2 
K - K ♦ 1 
X - X t CA(I) 

Y-Y I TSKT(I) 

Z - 7 4 (NRD(i) * (1 Pt(l)) * POH(I) / FMAT(I) ♦ THRS(l) / FMAS(D) * TSKT(E) / CA{1) 

W - W ♦ NRD(I) • (1 PI(!)) • POH(!) / FMAT(I) F THRS(I) / FMAS(I) 

TX2: NFXT I 
YA - Y / K 
10 - 1 : IF - 33 

I ,PRENT : LPRINT TAB(5); RTTTLES: LPRINT 
UPR1NT TAB(5); COMMENTS: [.PRINT I-PRINT 

LPRINT TAB(20), 'VEHICLE TURN TIME REPORT - at mission nbr .*; X(24); ’ - page 1*. LPRINT 

LPRINT TAB<1); 'VEHIO.E IS VNAMS; TAB<35); 'DATE: *; DATES; TAB(60); 'TIME: '; TIMES: [.PRINT 

LPRINT TAB(25), 'ON-VEHICLF'; TAB(38); * TOT *; TAB(52); *NBR CREWS'; TAB(62); "AVG SUBSYS REPAIR' 

LPRINT TAB<1); 'WBS*; TAB(25); *MTTR I, HRS)*; TAB(38); ‘MAIN ACT'; TAB02); 'ASSIGNED'; TAB(62); 'TIME PER MSN' 

LPRINT 

FOR l - IO TO IE 

IF OPS(l) - ' DELETE* THEN GOTO TX3 

TEMP - (NRfXl) • (I - Pl(l)) * POH(I) f FMAT(0 ♦ THRS(T) / FMAS(I» * TSKT(I) / CA(I) 

IF I - JJ THEN TSAVF. - TEMP 

LPRINT TAB(I); WBSS(l); TAB(28); TSKT(I); TAB(40); NRD(I) * (1 - PI(D) * POH(I) / FMAT(I) F THRS(I) / FMAS(I); TAB(54); CA(1); TAB{62), TEMP 
m - 24 THEN LPRINT TAB(5); 'AVIONICS ROI.LUP*; TAB(27); 'AVG*; YA; TAB(40); W; TAB(53); X; TAB(6l); Z; 'TOT* 

TX3: NEXT I 
LPRINT : [.PRINT 

LPRINT TAB(l); 'AVG CREW SIZE*; AVCREW; TAB(26); *AVG TASK TIME’; ATSK; TAB(60); TT; “(TOTAL)' 

LPRINT CHRS02); 

LPRINT TAB(20); 'VEHICLE TURN TIME REPORT - at mission nbr.*; X(24); * page 2*: LPRINT 
LPRINT TAB<1); 'VEHICLE IS *; VNAMS; TAB<35), 'DATE: *; DATES; TAB(60); ‘TIME: *; TIMES; LPRINT 
LPRINT : LPRINT TAB(5); 'CATEGORY'; TAB(52); *M1N TURN TIMES’: LPRINT 
LPRINT TAB(5); *SCHD MAINT MSN TASK TIME*; TAB<55); SCHT; 'HRS' 

LPRINT TAB(5); 'UNSCHEDULED MAINTENANCE TIME*; TAB(55); TSAVF.; 'HRS' 

LPRINT TAB<5); 'INTEGRATION TIME'; TAB(55); X(17); 'DAYS' 

LPRINT TAB(5); 'LAUNCH PAD TIME'; TAB<55), X(I8); 'DAYS* 

LPRINT TAB{5); 'MISSION TIME -INC GRND PWR TIME*; TAB(55); T(0) F T(4); 'HRS' 

IF TSAVE < SCHT THEN TSAVF. ~ SCHT 

VTT - T(0) F T(4) F TSAVE F X( 1 7) • 24 f X( 1 8) * 24 

LPRINT TAB(5); 'TOT VEHICLE TURNAROUND TIME*; TAB(55); VTT; 'TOTAL HRS' 

LPRINT : I .PRINT 

LPRINT TAB<1); 'ONE SHI FT/DAY MAINTENANCE': LPRINT 
DVTT - (T(0) f T(4)) / 24 f (TSAVE) / 8 F X(17) f X(I8) 

LPRINT TAB(5); 'TOT VEHIO.E TURNAROUND TIME*, TAB{55); DVTT; 'DAYS' 

LPRINT TAB(5); 'AVG MISSIONS/ YR/VF.Hia.E’; TAB05); 12 * 21 / DVTT 

LPRINT TAB(5); 'COMPUTED FLEET SIZE *; TAB(55); INT((X(15) / 12) / (21 / DVTT) F .99) 

LPRINT : I .PRINT 

LPRINT TAB(l); 'TWO SHIFTS/ DAY MAINTENANCE': LPRINT 
DVTT - (T(0) F T(4)) / 24 F (TSAVE) / 16 + X(17) + X(18) 

LPRINT TAB(5); 'TOT VEHICLE TURNAROUND TIME*; TAB(55); DVTT; 'DAYS’ 

LPRINT TAB(5); *AVG MISSIONS/YR/VEHIO.E*; TAB(55); 12*21/ DVTT 

LPRINT TAB(5); 'COMPUTED R.EET SIZE *; TAB(55); INT((X(13) / 12) / (21 / DVTT) + .99) 

LPRINT : LPRINT 

LPRINT TAB(l); 'THREE SHIFTS/DAY MAINTENANCE*: LPRINT 
DVTT - (T(0) F T(4)) / 24 F (TSAVE) / 24 F X(17) F X(18) 

LPRINT TAB(5); 'TOT VEHICLE TURNAROUND TIME'; TAB<55); DVTT; 'DAYS' 

LPRINT TAfl(5); 'AVG MISS IONS/ YR/VEH1CLE’; TAB(55); 12 * 21 / DVTT 

LPRINT TAB(5), 'COMPUTED R.F.ET SIZE '; TAB(55); 1NT((X(15) I 12) / (21 / DVTT) F .99) 

LPRINT 

LPRINT TAB(5); 'NOTE: assume* parallel unach/scbed maint tasks, 8 hr shifts, and 21 work days a month' 

LPRINT CHR$(12); 

LPRINT TAB(20) , 'VEHICLE TURN TIME REPORT - at mission nbr.'; X(24); * - page 3': LPRINT 
LPRINT TA9(l), 'VEHICLE IS "; VNAMS; TAB(35); 'DATE: ’; DATES; TAB(60); 'TIME: ’; TIMES 
LPRINT 

[.PRINT : LPRINT TAB(5); 'CATEGORY*; TAB(52); 'MAX TURN TIMES': LPRINT 
LPRINT TAB(5); 'SCHD MAINT MSN TASK TIME*; TAB(55); SCHT; 'HRS' 

LPRINT TAB{5); ‘UNSCHED MAINT TIME'; TAB(55); TT; 'HRS’ 

LPRINT TAB<5), 'INTEGRATION TIME'; TAB(55); X(17); 'DAYS' 

LPRINT TAB(5); 'LAUNCH PAD TIME*; TAB(55); X(18); 'DAYS' 

LPRINT TAB(5); 'MISSION TIME -INC GRND TIME*; TAB05); T(0) F T(4); 'HRS* 

VTT - T(0) F T(4) F TT F SCHT F X(17) * 24 F X(18) * 24 

LPRINT TAB(5); 'TOT VEHIO.E TURNAROUND TIME*; TAB<55); VTT; 'TOTAL HRS' 
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LPRINT ; [.PRINT 

1. PRINT TAB( 1 ); "ONE SHIFT/DAY M A INTF.N ANCF. ’ : [.PRINT 

DVTT - (T(0) * T(4))/ 24 k (TT \ SCHT) / 8 * X(17) * X(18) 

l. PRINT TAB(5); "TOT VEHICLE TURNAROUND TIME"; TAB(55), DVTT; "DAYS* 

UPRINT TAB(5); 'AVG M ISS IONS/ YR/ VEHICLE"; TAB(55); 12 * 21/ DVTT 

[.PRINT TAB(5); "COMPUTED FLEET SIZE *; TAB(55); INT((X(I5) / 12) / (21 / DVTT) ♦ .99) 

[.PRINT [.PRINT 

[.PRINT TAB(I), 'TWO SHfFTS/DAY MAINTENANCE": [.PRINT 
DVTT - (T(0) • T(4)) / 24 » {TT + SCHT) / 16 I X( 1 7) 1 X(18) 

I.PRINT TAB(5); "TOT VEHICI.E TURNAROUND TIME"; TAB(55), DVTT, "DAYS' 

UPRINT TAB(5); "AVG MISSIONS/YR/VEHICLR"; TAB(55); 12 * 21 / DVTT 

UPRINT TAB(5); "COMPUTED Fl.EET SIZE *; TAB(55); INT((X(15) / 12) / (21 ) DVTT) + 99) 

UPRINT : UPRINT 

UPRINT TAB(l), "THREE SHIFTS/DAY MAINTENANCE": [.PRINT 
DVTT - (T(0) ♦ T(4))/ 24 t (TT t SCHT) / 24 ♦ X(17) f X(18) 

UPRINT TAB(5); "TOT VEHICLE TURNAROUND TIME"; TAB(55); DVTT, "DAYS" 

UPRINT TAB(5); 'AVG MISSIONS/ YR/VEHICLE"; TAB(55); 12 * 21 / DVTT 

LPRINT TAB(5); "COMPUTED FLEET SIZE "; TAB(55), INT((X(15) / 12) / (21/ DVTT) ♦ 99) 

I.PRTNT TAB(5); 'NOTE: assumes sequential tasks, 8 hr shifts, and 21 work days a month' 

LPRINT CHR$( 12); 

END SUB 

SUB REPORT 

CIS 

PRINT : PRINT TAB(25), "REPORT MENU": PRINT 
COLOR 1 1 

PRINT TAB(15); "NBR'; TAB(35); "SELECTION": PRINT 

PRINT TAB( 15); '1 PRINT INPUT DATA" 

PRINT TAB(I5); '2 PRINT SUMMARY REPORT" 

PRINT TAB(15); "3 PRINT RELIABILITY REPORT" 

PRINT TAB(I5); "4 PRINT MAINTAINABILITY REPORT’ 

PRINT TAB(15); '5 PRINT MANPOWER REPORT' 

PRINT TAB(I5); "6 PRINT SPARES REPORT* 

PRINT TAB(15); "7 PRINT TURN TIME REPORT' 

PRINT TAB(15); '8 PRINT EXT TANK AND/OR SRB REPORT- 

PRINT TAB( 15); "9 PRINT TOTAL OUTPUT' 

PRINT TAB( 1 5) ; ’ 1 0 PRINT TOTAL INPUT/OUTPUT* 

PRINT TAB(I5); ’ll SIMULATION MODFI. INPUT' 

PRINT TAB(15); "12 SEND REPORT TO A FILE" 

COI.OR 14 

PRINT TAB(15); "RETURN. CANCEL REQUEST* 

COLOR 1 1 

LOCATE 23, 50: COLOR 12: PRINT Ms your printer ready?T>* 

LOCATE 24, 5: COLOR 13: PRINT " VEHICLE/ FILE NAME IS VNAMJ 
COLOR 10: IXJCATE 18, 20. INPUT 'ENTER SELECTION"; NDO 
IF NDO < - 0 OR NDO > 1 2 THEN GOTO BOTM 
COLOR 3 

LOCATE 20, 10: INPUT 'ENTER TITLE OF REPORT*; RTITLES 

LOCATE 21, 10: INPUT 'ENTER COMMENTS'; COMMENTS 

IF NDO - 1 THEN CALL ECHO 

IF NDO - 2 THF.N CALL PRINTSUM 

IF NDO - 3 THEN CALL PRINTREL 

IF NDO - 4 THEN CALI. PRINTMAINT 

IF NDO ^ 5 THEN CALL PRINTMAN 

IF NDO - 6 THF.N CALI. PRINTSPR 

IF NDO ^ 7 THF.N CALL. PRINTTURN 

IF NDO - 8 THF.N CALL F.TSRB 

IF NDO - 9 THEN GOSUB ALL 

IF NDO - 10 THF.N GOSUB ALL 

IF NDO - 1 1 THFN CALL SIMREP 

IF NDO - 12 THEN CALL WRFILF. 

GOTO BOTM 

ALL: ’CALL ALL PRINT MODULES 
IF NDO - 10 THFN CALL ECHO 
CALL PRINTSUM 
CALL PRINTREL 
CALL PRINTMAINT 
CALL PRINTMAN 
CALL PRINTSPR 
CALL PRINTTURN 

IF F.L.RFL < 1 OR SRBREI. < I THF.N CALI. F.TSRB 
RETURN 

BOTM: RETURN TO MAIN MENU 

END SUB 
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SUB SIMRFP 

*••••• LPRINT MODULE FOR SIMULATION INPUT ******* 

SWBSVl) - 'Structural" SWBS$<2) - ’ Fuel/ Oxid Tanks': SWBS$<3) - 'Thcrmal/Tiles* SWBS$<4) - ‘Propulsion’ 

SWBS$(5) - * Power/Electrical * : SWBS$(6) - ‘ Mechanical Sys': SWBSS(7) - ‘Avionics': SWBS$<8) - “ ECS/ Ufe Support* 

SWBS$(9) - "Auxiliary Systems’ 

LPRINT TAB(25); 'SIMULATION INPUT REPORT* I. PRINT 
LPRINT TAB(5), RTITLF.J; LPRINT 
!. PRINT TAB(5); COMMENTS: LPRINT 

LPRINT TAB(I); 'VEHICLE IS \ VNAMS, TAB(35); "DATE: *, DATES; TAB(60), "TIME: TIMES: LPRINT 

LPRINT LPRINT TAB(l); "Subsys", TAB(25); 'Maim Actions’; TAB(40); * On-Veh MTTR’; TAB(55); ‘Off-veh MTTR* 

LPRINT TAB(25); 'Per Mission’; TAB(40), ‘in hours', TAB(S5); ’in hours’; TAB(66); *Prob-Rem‘: LPRINT 
FOR I - I TO 9 

X - (FRS(l) * RFMS(I )) ! (1 ERS(I) * RFMS(I)) 

X - (X(13) * REMS(O) f (1 - X(13) * RFMS(!)) 

LPRINT TA8(3), SWBSS(I); TAB(25), MAS(l), TAB(40), MTROS(I); TAB(55); MTRFS(I); TAB(66); X 

NEXT I 

LPRINT 

LPRINT LPRINT TAB(25); ’Removal &*, TAB(40); ’On-Veh*; TAB<55), ’Off Veta’ 

LPRINT TAB(I); ’Subsys’; TAB(25); ’No spare’, TAB(40); ’Sched MTTR'; TAB(54); ’Scbcd MTTR’; TAB(66>; ‘AVG CREW SIZE": LPRINT 
FOR I - I TO 9 

LPRINT TAB(3); SWBSS(I); TAB(25), RFMS(I) * (I - X(13)); TAB(40); SMT(I); TAB(54); SMTF(l); TAB(65); SC(i); " 

NEXT I 
LPRINT 

LPRINT TAB( 10). ’launch Reliability’, TAB(50), VR1 
LPRINT TAB(IO); ’Mission Redundant Reliability*, TAB(50), VR5 
LPRINT TAB(10), ’Integration Time - days’; TAB(50), X(17) 

LPRINT TAB(IO); ’Pad Time - days’, TAB(50); X(I8) 

LPRINT TAB(IO); ’Mission Time*. TAB(50), T(4) 

LPRINT TAB(IO); ’Planned missions per Year*; TAB(50), X(15) 

LPRINT TAB(IO); ’Fill rate objective"; TAB(50); X(I3) 

LPRINT CHR$< 1 2) 

END SUB 

File: RAMC.BAS computational module 


NASA, LANGIJ.Y RESEARCH CENTER 

MTBM COMPUTATION Al. MODEL - NASA RESEARCH GRANT - 
DEVELOPED BY C. EBELING, UNIV OF DAYTON 6/17/94 (updated) 

’ *•*•***• COMBINED PRE/CONCEPTUAL MODEL **•••****• 

‘SAVE AS ’RAMC.BAS’ computational module 

COMMON SHARED YR, B, XI, X2, LF, VR1, VR2, VR3, VR4, VR5, VR, AREM 

COMMON SHARED VFMA, TVFMA, SVFMA, CVFMA, OMHMA, OFMHMA, TMA, AMHMA 

COMMON SHARED SCHP, VMH, TOMH. TFMH, APF, PI. P2, P3, WAV, FH42, FH44 

COMMON SHARED FMAll, FMA12, VNAM$, ARR, TNR. TS, SKIP 

COMMON SHARED SMP, TMP, VMOH, WGTF, WING. WF, PWF 

COMMON SHARED ETREL. SRBRF.L, ETS, SRBS, RTTTLES, ABTFS 

COMMON SHARED STP, STE, MTE, TME, STF, MTF, TMF, Cl 

DIM SHARED WBS$(35), X(50), NAM$(50). THRS(35), MHMA(35), MH(35). MP(35), OMH(35). FMH<35) 
DIM SHARED SEU(35), T(10), CP$(9), CA(35), RELF(35). RF(35) 

DIM SHARED GOH(35), LOH(35), TOH(35), OOH(35), ROH(35), R(35), TSKT(35), POH(35) 

DIM SHARED V(15). SNAM$(15), FMAT(35), FMAC(35). FMAS(35), S(35), SMA(35). SMR(35) 

DIM SHARED MW(35). C(35). CM(35), OPS<35), TG(35) 1 PWTS(35) 

DIM SHARED FMA{35), PF(35). PA(35). RR(35), W(35), NR(35), FR(35) 

DIM SHARED NRD<35), K(35), R 1(35) , R2(35), R3(35), R4(35), R5(35) 

DIM SHARED PWT1(35). PWT2(35), PWT3(35), PWT4<35), SRR(35) 

DIM SHARED ETSUB$<5). ETMBA(5), ETHRS(5), ETABR(5), ETMTR(5), F.TR(5), FTCREW(5) 

DIM SHARED SRBSUB$(5), SRBMBA(5), SRBHRS(5). SRBABR(5), SRBMTR(5), SRBR(5), SRBCREW(5) 
DIM SHARED SWBSS(10), MAS(9), bfTROS<9), MTRFS<9), REMS(9), SMT(9), SMTF(9). SC(9), FRS(9) 
DIM SHARED PI(33), CZ(9) 

COMMON SHARED PIQ, CZ<) 

COMMON SHARED SWBSJO, MASQ, MTROSO, MTRFSQ, RF.MSO, SMTO. SMTFO. SCO, 

COMMON SHARED WBS$0. XQ, NAM$0, THRSQ, MHMAO, MHO. MPO, OMHQ, FMHO 

COMMON SHARED SELSO. TO, CP$0, CAQ. RELFQ, RFQ 

COMMON SHARED GOHO. LOH0, TOHO, OOH0, ROH0. R0, TSKTO, POH0 

COMMON SHARED VO, SNAM$0, FMATQ, FMACO, FMASO, SO, SMAQ. SMRO 

COMMON SHARED MWQ, CO, CMQ, OP$0, TGO, PWTSO 

COMMON SHARED FMAQ, PFO, PAO, RRQ, WO, NRO, FRO 

COMMON SHARP D NRDO, *0, RIO, R30. R4Q. R50 

COMMON SHARED PWT1(), PWT20, PWT3Q, PWT40. SRRO 

COMMON SHARED F.TSUBSO, ETMBA(), RTHRSO, ETABR(), ETMTR(), ETRO, ETCREWO 
COMMON SHARED SRBSUBSO, SRBMBAO, SRBHRSO, SRBABRO, SRBMTRO, SRBRO, SRBCREWO 

SUB ABORT 

14500 ’ABORT RATE CAIXTJLAT10NS 
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14505 FOR I - 1 TO 33: PA(!) - X(8): NF.XT I‘ SET DEFAULT ABORT RATF. 

’ WBS 1,2,3 STRUCTURES **** 

14510 ABI1 - ,031213 t 1.956F-07 * XI - 1.5456F-04 * SQR(Xl) 

14511 IF AB1 1 < - OTHEN AB1 1 - 00128 

14512 IF AB11 > .02065 THEN ARM - 02065 

14513 PA( 1 ) - ABU: PA(2) - AB11 

14520 ABI2 - .04232 * 3 8775E-07 * XI - 2.51883ETM * SQR(XI) 

14521 IF AB12 > 02 THEN AB12 - .02 
IE AB12 < OTHEN ABI2 - 0 

14522 PA(3) - (AB1 1 / FMAll 1 AB12 / EMA12) / (1 / EMA11 1 W FMA12) 

’ WBS 5 LANDING GEAR **** 

14530 AB1 3 - -2.4321 t 00591 12 * X2 t 1 1457 * LOG(X2) - 33925 * SQR(X2) 

14531 IF AB13 < OTHEN PA(9) - .00185 ELSE PA(9) - AB13 

14532 IF PA(9) > 08 THEN PA(9) - .08 

’ ENGINES**** 

14630 FOR I — 10 TO 12 

14631 PA(I) - .048164 - 0001268 * X2 

14632 IF PA(() < .0013 THEN PA(I) - 0013 

14633 NEXT 1 

’ WBS 9. 10 APU **** 

PA(13) - 064 

* WBS 10.00 ELECTRICAL **** 

14580 PA( 16) - -39.95984 ♦ 1 ! .09214 * LOG(Xt) - 1 01 78226# * LOG(Xt) ‘ 2 I .0309075 * IXXJ(XI) * 3 

14581 IF PA(16) < - 0 THEN PA(16) - 00248 

14582 IF PA(16) > .142 THEN PA(I6) - .142 
PA( 14) - PA( 16) 

PA(I5) - PA(I6) 

• WBS 11 .00 HYDRAULICS **** 

14600 PA(17) - 5000.2535# - 7578. 183 / SQR(lTXi(Xl)) - 453.612 * LOG(Xl) t 24.6005 * LOG(Xl) ‘ 2 - .5276227 * LOG(Xt) ‘ 3 

14601 IE PA(17) < - 0 THEN PA(17) ^ 00084 

14602 IF PA(1 7) > . 1304 THEN PA(!7) - 1304 

’ WBS 12.00 ACTUATORS **** 

14540 ABM - .711953 - .1881388 * LOG(X2) t 0209882 * SQR(X2) 

14541 IF AB14 < OTHEN PA(18) - 6 000001E-04 ELSE PA(18) - AB14 

14542 IF PA(18) > .08128 THEN PA(18) - 08128 

’ AVIONICS GENERIC 

14610 PAG - .0502749 t 2.605132E-07 * XI - 2 288197R-04 * SQR(Xl) 

1461 1 IF PAG < 0 THEN PAG - 00152 

14612 IF PAG > .02376 THEN PAG * .02376 
FOR I - 19 TO 24: PA(I) - PAG: NEXT I 

14615 IF X(19) - OTHEN PA(19) - 01: PA(21) - OIL PA(23) ^ 015: 

’ WBS 14. XX ENVIRONMENTAL**** 

14570 PA(25) - .082199 ( 5.0072F.-07 * XI - 4 0612E-04 • SQR(Xl) 

14571 IF PA(25) < OTHEN PA(25) - 00152 

14572 IF PA(25) > .05222 THEN PA(25) = .05222 

14573 PA(26) - PA(25) 

’ WBS 15.00 PERSONNEL PROVISIONS **** 

14620 PA(27) - 0185 

’ ET/SRB ABORT RATES 

FOR I - I TO 5: ETABR(l) ^ X(8): SRBABR(I) = X(8): NF.XT I 

'compute air abort rates 
IF X(25) - 1 THEN 

FOR I - 1 TO 2: PA(I) = .25 * PA(I); NEXT I 
PA(3) - .195 * PA(3) 

FOR I - 4 TO 8: PA(I) - X(8): NEXT I 
PA(9) - .22 * PA(9) 

FOR I - 10 TO 12 PA(I) - 28 * PA(I): NEXT I 
PA(13) ^ 02 * PA(13) 

FOR I - 14 TO 16: PA(I) - .125 * PA(I): NEXT I 
PA(17) - 08 * PA(17) 

PA(18) - .14 * PA(18) 

IF X(19) - OTHEN PA(19) - .33 * PA(19) F.I4JE PA(I9) - .16125 * PA(I9) 

PA(20) - X(8) 

PA(21) - .1175 *PA(21) 

PA(22) - X(8) 

PA(23) - .16*PA(23) 1 

PA (24) - X(8) 
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PAt25) - 29 • PA(25) 

PA(26) - .16 * PA(26) 

PA(27) - .52 * PA(27) 

FOR I - 28 TO 33 PA(I) - X(8) NEXT l 
FND IF 


END SUB 
SUB ACWGT 

' MODULE TO COMPUTE SUBSYSTEM WEIGHTS AC’FT F.QS 
SUM - 0 

FOR I - 1 TO 33. W(i) - 0 NEXT I 

W( ! ) - -4485026 7# t 1351022 5# * LOG(Xl> 135432! * (LOG(Xl)) * 2 t 4522.4 • (LOG(Xl)) * 3 
IF W(l) < - 0 THEN WO) - 795 

WO) - -290909 9 i 91929 4 * LOG(Xl) 9709.901 *(LOG(Xl)) * 2 i 343 5 • (IXXJ(Xl)) * 3 
IF W(2) < - 0 THEN W(2) - 302 

W(3) - 39713145.2# * ! 4 1 7950.4# * ITX3(XI) 40472209# / SQR(LOG(Xl)) - 12993808.8# * SQR(LOG(Xl)) 
IF W(3) < - 0 THEN W(3) - 2140 

W(9) - -49535! t 282563 * XI t 6873.7 * LOG(Xl) -160.1* SQR(XI) 

IF W{9) < - 0 THEN W(9) - 527 

W( 1 8) - -9849.5 f .0459666 * XI I 1364 8 • LOG(Xl) 26 248 * SQR(XI) 

IF W(18) < - 0THEN W(U) - 100 

W(13) - -910 4 f 100 22 * LOG(Xl) » 1 3835 * SQR(Xl) 

IF W(13) < - 0 THEN W(13) - 157 

W(25) - -719.15 t 5.56265 * X2 + 56 882 • SQR(X2) 

IF W(25) < - 0 THEN W(25) - 63 
W(26) - W(25) i 2 W(25) - W(25) / 2 
W(16) - -757 97 f 11.222 * SQR(Xl) 

IF W(I6) < - 0 THEN W(I6) - 310 

W( 17) - 575.27 ► 022216 * XI - 5.0608 • SQR(Xl) 

IF W(I7) < - 0 THEN W(17) ^ 147 

W(27) - 66255 6 - 14720 .4 • LOG(Xl) I 818 19 * (LOG(Xl)) * 2 
IF W(27) < - 0 THEN W(27) - 284 
AV - -10901 5 t 1261 52 * LOG<XI) 

IF AV < - 0 THEN AV - 303 

FOR I - 19 TO 24: W(I) — AV / 6: NEXT I 

* W(4) - .11 * XI: W(6) - .01 * XI W(7) - 04 • XI W{8) - 02 * XI: W(16) - 1 * XI 
W(10) - -7141.92 + 89 1053 * SQR(Xl) 

FOR 1 - 1 TO 33 
SUM - SUM \ W(l) 

NEXT I 

FOR I - 1 TO 33 
PWT4<1) - W(I) / SUM 

IF W(l) - 0 THEN OPyi) - "DELETE* ELSE OP$(I) - ‘COMPUTE* 

NFXT I 


END SUB 
SUB COMPM 

‘module to compute MTBM given a specif ed reliability 
Y7. - 0: YY - 0: Y - 0: YW - 0 
FOR I - 1 TO 33 

IF OP$(l) - "DELETE* THEN GOTO SKPI 
IF RELF(I) - l THEN GOSUB MTB 
IF RELF(I) - 0 THEN YW - YW -t I / FMA(I) 

Y7 - Y7. 4 1 / FMAS(D 
YY - YY ♦ I / FMAC(I) 

Y-Y H / FMAT(I) 

SKPI NFXT I 
TVFMA - 1 / Y 

IF YW > 0 THEN VFMA - I / YW 
SVFMA - 1/YZ 
CVFMA - I / YY 
EXIT SUB 

MTB find FMAC 

IF X(25) - 0 THEN TO - GOH(I) ELSE TO - 0 
T1 - TO f LOH(I): T2 - T1 f TOH(l) 

T3 - T2 t OOH(I); T4 ^ T3 t ROH(I) 

LI - 1 / FMAC(I) 

IF I - 9 THEN LI - -LOG(RF(I» / T4 GOTO EDI 


RCP: L2 - LF * LI 
A - ((B * T(2) ‘ (B - !)) / LI) * (1 / B) 

F - EXP(-L1 * (T2 \ TO - Tl) - L2 * (T! - TO) - (T3 / A) * B i (T2 / A) ' B - LI * (T4 - T3)) 
FP - F - RF(I) 
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r>F - (<T2 i TO - Tl)- LFQT! TO) - T3 / (B • T2 * (B - ])) - W (B * T2 ' (B - 2)) - (T4 - T3)) * F 
IF DF < OOOl OR DF > 0001 THFN NFWL1 - LI - FP / DF ELSE FXIT SUB 

IF ABS(F - RF(I)) > 000001 THFN U - NFWU : GOTO RCP 

FT) I : FMAQI) - ! / LI 

FMAS(l) - FMAQI) * PA( I) 

FMAT(I) - Pl(f) * FMAS(I) 

RETURN 

FND SUB 

SUB COMRFL 

2800 MODULE TO DETERMINE non redundant RFUABIUT1FS - CRITICAL FA1LURFS ONI Y 

2810 VR - 1 

2820 FOR J - 1 TO 33 

2830 IF X(25) - 0 THFN TO - GOH(j) ELSE TO - 0 
Tl - TO 1 LOH(J): T2 --- Tl l TOH(J) 

2840 T3 - T2 1 OOH(J): T4 - T3 I ROH(J) 

2850 IF OP${J) - "DELETE' THFN R(J) - 1: GOTO 2890 
2860 LI - 1 / FMAC(J): L2 - LF * LI 
2870 A - (B * T(2) * (B - 1) / LI) ‘ (1 / B) 

2880 R(J) - FXP(-L1 * (T2 » TO Tl) - L2 * (Tl TO) - (T3 / A) * B I (T2 / A) * B LI * (T4 T3» 

2890 VR - VR * R(J) 

2895 NFXT J 

FND SUB 

SUB CREW 

12000 CREW SIZE CALCULATIONS 

121 10 C(l) - I 5 - .000032 * V(3) t .009172 * SQR(V( 3)) 

12120 C(2) - C(l): C(3) - C(I): C(4) - C(l): C(5) - C(l): C(6) - C(l): C(7) - C(I): C(8) - Ql) 

12130 C< 18) - C(l): C(9) - QI) 

12140 C(10) - 2.43: C( 1 1 ) - 2.43: C(I2) - 2.43 
12150 C( 13) - 2.43: C(14) - 2.43: C{15) - 2.43 
12160 C(16) - -1.48 - .002833 * X2 t .814656 * LOG(X2) 

12170 Ql 7) - C( 16): C(25) - C(16): C(2 6) - C(16) 

12180 C(19) - 2.18: C(20) - C(19): C(21) - C(I9): C(22) - C(I9): C(23) « C(I9) C(24) - C(19) 

12190 C(28) - 1 7893 t ,0009872 * SQR(Xl) 

12195 C(27) - (C(16) + C(28))/ 2 

12196 C(29) - C(28): C(30) - C(28): C(31) - C(28); C(32) - C(28): C(33) - C(28) 

TFC - 1 

FOR I - 1 TO 33 

IF I - 33 OR I - 23 OR I - 25 OR I - 26 OR 1 - 10 OR 1-11 OR 1-17 OR I - 4 OR I - 5 OR 1 - 30 THEN TFC - 2 
IF SFI^$(I) - "SHUTTLE* THEN C(I) - TFC *4.5 
TFC - I 
NFXT [ 

FND SUB 

SUB CRIT 

2700 DETERMINE CRITICAL FMA 

2710 YY - 0 

2720 FOR I - 1 TO 33 

2730 IF OP$(D - "DFIJ-TF* THFN GOTO 2760 
2740 FMAQI) - FMAS(I) / PA(1) 

2750 YY - YY ) If FMAQI) 

2760 NEXT I 

2770 CVFMA - 1 / YY 

END SUB 

SUB EQS 

FOR I - 1 TO 33 
W(D - W(I) f NRD<I) 

NEXT I 

MTBM/MTTR CAIXULATIONS BY WBS 
WBS 1,2 & 3 AIRFRAME ***«*•«« 

SI - W(l) t W{2) \ W(3) 

PI - W(l) / SI: P2 - W(2) / SI : P3 = l - PI - P2 
3020 FMAl 1 - 15.231 \ 006057 * W(2) 137575 * SQR(W(1) t W(2) + W(3)) - 000723 * V(3) 

3022 IF FMA1 1 < 1.4 THEN EMA11 - 1.4 

3025 FMA(l) - FMAl 1 / PI. FMA(2) - FMA 11 / P2 

3030 MH1 1 - 16.5732 3511567 * W(3) / V(2) - .74556 * LOG(Xl) 
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3031 IF MH11 < 3.9 THEN MH - 3 9 

3032 MHMA(l) - MH11: MHMA(2) - MH1 1 
WUCI2 AIRCREW COMPARTMENT 

JI10FMA12 - 3428.49 -.0142 * XI 423 96 MXXJ(Xl) I 11.05 • SQR(Xl) » 1 1 1 .567 • X(3) - 360.72 • SQR(X(3» 4 01865 • W(3) - 4.83566 • SQR(W(3)) - .25785 • (X(3) 
♦ X(4>) 

3112 IE FMA12 < 5 6 THEN FMA12 - 5.6* 25TH PERCENTILE RANGE 

31 15 TP - P3 / EMAl 1 I 1 / FMA12: FMA(3) — I / TP ’CHECK LINE 3715 FOR FMA(3) 

3120 IE X(3) 4 X(4) > 0 THEN MH12 - 7 0855 1 6667 / SQR(X(3) 4 X(4)) + .098778 * (X2 4 X(4)) 

3121 IF MH1 2 < 3 2 THEN MH12 - 3.2 

3123 MHMA{3) - ((I / FMA1I) • MH11 ♦ (1 / FMAI2) • MH12) / (1 / FMA11 t 1 / FMAI2) 


WUC46 FUEL SYS WBS 3 10/3.20 

4710 BMA46 - 494.8 54.06 * XI + 903 • SQR(V(3)) 

4711 IF BMA46 < 8.37 THEN BMA46 - 8.37 

4712 IF BMA46 > 84 THEN BMA46 - 84 
FMA(4) - BMA46 

4714 Y - (W(4) / (W|4) I W(5))) * (1 / BMA46) 

4715 7 - (W(5) / (W(4) f W(5))) * (t / BMA46) 
BMA46 - 494.8 54 06 * X! * .903 • SQR(V(3)) 
IF BMA46 < 8.37 THEN BMA46 - 1 
IF BMA46 > 84 THEN BMA46 - 84 
FMA(5) - BMA46 

4716 ’FMAI4) - I / Y: EMA(5) - 1 / Z 

4720 MH46 - -180.85 * 00126 * XI 4 
t W(12)) 4 45 * SQR(W(4) 4 W(5» 

4721 IF MH46 < 7 THEN MH46 - 7 

4722 IF MH46 > 21.34 THEN MH46 - 2 1 34 

4723 MHMA(4) - MH46 MHMA(5) - MH46 


50.712 • X(5) 4 16 39 * V(9) 4 151.37 * SQR(X(5)) - 83.12 * SQR(V(9» - 0004 * (W(4)) 4 .2756 • SQR(W{4)) 


50.712 * X(5) + 16 39 • V(I3) 4 151 37 • SQR(X(5)) - 83 .12 • SQR(V(I3)) - 0004 * (W(5)) 4 .2756 * SQR(W(5)) 
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6663 *X2 - .0121 * V(3) 4 1 1.7288 * LOG(Xi) - 1 .635 * SQR(V(3)) - 20.309 * V(9) f 87 164 * SQR(V(9)) - .00131 * (W(10) 4 W(l!) 


’ WBS 4. XX THERMAL. PROTECTION SYSTEM **************** 

' TILES, TCS. A PVD - NOT AVAILABLE FROM AIRCRAFT INDICES 6,7 & 8 


WUC13/WBS9 LANDING GEAR SYSTEMS •***•••*»******• 

3210 SMA13 - 22.2723 - 00313 * V(3) 4 19511 * X2 - 5.47476 * SQR(V(4)) f .003161 * W(9) - .5171441 * SQR(W(9)) 

3212 IF SMA13 < .4 THEN SMAI3 - .4 

IF SMA13 > 19 1 THEN SMA13 - 19.1 

3213 *FMA(9) - 72,4 4 14.568 * V(4) 4 .0994 • X2 12.41 * LOG{Xl) 65.6 * SQR(V(4)) - .00568 * W(9) 4 18.598 * LOG(W(9)) 

3214 'IF FMA(9) < 1.4 THEN FMA(9) - 1.4 
EMA(9) - SMAI3 

3220 MHMA(9) - 1 56 95 4 55 984 * LOG(W(9)) 6 095 * (UXi(W(9») * 2 + .212817 * (IXXJ(W(9») * 3 

3221 IF MHMA(9) < 1 9 THEN MHMA(9) - 1 .9 

******WUC23 PROPUl^ION SYSTEM **** WBS 6, 7 & 8 •**«**•* 

FOR I - 10 TO 12 

4 1 70 FMA(f) - 34.1 4 9 853001 F. -04 * W(l) - .312232 * SQR(W(1)) 

4171 IF FMA(I) < 14 THEN FMA(I) - 1.4 

4175 MHMA(I) - 52.6324 4 0009122 • W(l) - 3936 * SQR(W(I)) 

4176 IF MHMA(I) <4.1 THEN MHMA(I) - 4 1 

4177 IF MHMA(l) > 21.1 THEN MHMA(I) - 21.1 
NEXT I 


*WUC24 APU WBS 9 10 

3410 FMA( 13) - 4996 525 - 1 906 • V(7) 4 46 35 * SQR(V(7)) - 2.735 * W(1 3) 4 284.549 * SQR(W(1 3)) - 1642.99 * LOG(W(l 3)) 

3411 IF FMA( 13) < 14 5 THEN FMA(13) - 14.5 

3420 MHMA( 1 3) - -451.4 4 09054 • V(7) - 2.9654 • SQR(V(7)) + .2657 • W(13) - 26. 1 *SQR(W(13)) 4 150.5 * LOG(W(13)) 

3421 IF MHMA(13) < 5.2 THEN MHMA( 1 3) ^ 5.2 

3422 IF MHMA( 13) > 17.2 THEN MHMA(13) - 10! 

’ BATTERY WBS9.20 ****•*••***• 

FMA(14) - 3570 

MHMA(14) - 1 907 4 000006975# * XI 

WBS 9 30 POWER, FUEL CELL —— — — — — — 

’ NOT AVAIL ON AIRCRAFT - INDEX 15 

WUC 42/44 WBS 10 *** ELECTRICAL SYS ****** 

3609 FMA(16) - 1193.13 - 0755 * W(16) + 6.758773 • SQR(W(16)) - .715596 * X2 - 167 24 * LOG(Xl) 4- 2.2308 * SQR(Xl) 4- 29.10236 * IXX3(V(7)) .00127 * V(7) * 2 
3611 FH44 - 1 

3613 FH42 - 1 

3614 IF FMA(16) < 5 15 THEN FMA(16) ^5.15 

3620 *MHMA(16)- 18392 3 4 1694.6*LOG(Xl)-92.8412*(LOGLXl))‘2 + 27629/SQR(LOG(XI)) + 2*LOG(Xir3 

3621 MH42 - -95. 161 4 20.3158 * LOG(Xl) - .98356 • (LOG(Xt)) * 2 

3622 MH44 - 2300.04 4 474.11 • LOG(Xl) - 452.295 * LOG(X2) - .146285 * XI / X2 - 2769.85 * SQR(LOG(Xi)) 4- 1788.4 * SQR(LOG(X2)) 

3623 MHMA(16) - (MH42 4 MH44) / 2 

3624 IF MHMA(16) < 1! THEN MHMA(16) = 4.1 

‘WUC45 WBS1 1 HYDRAULJCS SYS *•*•••••*• 
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3810 FMA( 1 7) - 396.258 - 0062 1 * V(3) * 35,635 * V(8) - 779.83 * SQRlV(8)) t 975.56 * UXHV(8» ♦ 8.812899 * SQR(W(17)) - 105 728 * LOG(W(I7)) 

3812 IF FMA(17) < 4.7 THEN FMA(17) - 4.7 

3820 MH45 - 2 41235 *LOG(XI) - 16306 - l.CXJlXI) * 2 

3821 MHMA(17) - MH45 

3822 IF MHMA(17) < 2.4 THFN MHMA(17) - 2,4 

’WUC14 WBS 12.00 AFRO SURFACF. ACTUATORS ************** 

3310 FMA(18) - 26 29 - 1 . 11 36 * SQR(W(1 8)) t ,9516* V(5) - 1.9* V(6) i 3505 • X2 - 00357 * V(3) 

3312 IF FMA(I8) < 2.8 THFN FMA(I8) - 2 8 

3320 MHMA(1 8) - 26.238 ■ 1.1067 * V(5) - 1.6658 * V(6) .00328 * V(3) * 0006018 * X2 -6.2827 * I,OC(W(18)) f 14.289 * SQR(V(5)) 

3321 IF MHMA( 18) < 2.1 THFN MHMA(18) - 2.1 

' WBS 12. XX AVIONICS GENERAL ******* 

3910 FOR I - 19 TO 24 

3911 MHMA(I) - 131.395 » 1 0394 * V(I1) - 9 035 * SQR(V(10)) - 0154 * WAV i 2.864 * SQR(WAV) - 26 193 * LOG(WAV) 

3912 IF MHMA(I) < 4.6 THEN MHMA(l) - 4.6 

FMA(I) - -36.92 - 4 496 * V(10) t 45.756 * SQR(V(10)) - . 1231 * WAV / V(I0) ♦ .0236 * WAV - 2 453 * SQR(WAV) 

IF FMA(I) < 1.5 THEN FMA(!) -1.5 
NEXT I 

IF X(i9) - 1 THEN GOTO 3511 'USE AV GEN 
FMA(22) - 54 2 
MHMA(22) - 8.95 

4350 FMA(23) - 330.26 t .0003821 * XI - 451534 * X2 ♦ 137 3431 * X(5) - 1.129 * V(9) - 381 ,666 * SQR(X(5)) 

4351 IF FMA(23) < 7 THEN FMA(23) - 7 

4355 MHMA(23) - -229.62 ♦ .0003 * XI i 0985 * X2 ♦ 23 4948 * LOG(Xl) - 44697 • SQR(Xi) - 25.3067 * X(5) f 17796 * V(9) 1 74 155 * SQR(X(5)) 

4356 IF MHMA(23) < 3.5 THEN MHMA(23) - 3.5 

4357 IF MHMA(23) > 12.6 THEN MHMA(23) - 12.6 

4400 FMA(19) - -415.17 - 000317 * XI \ .2757 * X2 l .2242 * WAV 26 744 * SQR(WAV) + 155.28 * LOG(W A V) - .3679 * WAV / V( 10) 

4405 IF FMA(19) < - 3.3 THEN FMAt 19) - 3 3 

4410 FMA(20) - 323.913 - 16.0757 * SQR(WAV) f 16.974 * X2 1 .1735 * WAV + 23.82 • V<!l) - 2.305 * WAV / V(10) 

4415 IF FMA(20) < 4.2 THFN FMA(20) - 4.2 

4420 FMA(2 1) - 353.21 - .0338 * X2 \ 10 74 * V(10) 107.64 • SQR(V(10)) - 7.82 * LOG(WAV) 

4425 IF FMA(21) < 7.9 THEN FMA(21) - 7.9 
FMA(24) - 29. 1 3 

MHMA(24) - 4.75 t 2446 * EOG(Xl) 

’WUC41/47 WBS 1 4. XX ENVIRONMENTAL CONTROL ************** 

3511 FH4t - 454.387 - .000547 * XI t .821 * X2 - 107.5185 * LOG(X2) 

3512 FH47 - 6613.12 - 1.485 * X2 - 1358.3 * LOG(Xl) + 73 58 *(LOG(Xl)) * 2 - 725852 * XI / X2 

3513 FMA(25) - FH41 : FMA(26) - FH47 

3515 (F FMA(25) < 7 68 THEN FMA(25) - 7 68 
IF FMA<26) < 13.8 THFN FMA(26) - 13 8 

3520 MH41 - 6886774 • UXS(XI) 

3521 MH47 - 5.7432 f .018525 * LOG(Xl) - 3.36575E-03 * SQR(Xl) 

3522 MHMA(25) - MH4! : MHMA(26) - MH47 

3523 IF MHMA(25) < 1! THFN MHMA(25) - 1! 

’WUC49 MISC UTILITIES *********************** 

’ WUC49/96 WBS 1 5 PERSONNEL PROVISIONS •***••**•**••*•• 

4020 FMA(27) - 17952.8 \ .00579 * XI f 170 * X(3) - 10.136 * X2 + 21.15 * (X(3) +■ X(4)) - 461.34 * SQR(X(3) + X(4)) - 1.893 * W(27) + 421 8 * SQRiW<27)> 4054 » 
LOG(W(27)) 

4021 ’ FH49- 58226. 97 + .0! 68 *X1 -42.358 *X2 -27480 6*UXI(X2)4 79.598*l-OG(Xl )‘2 f 3131 24*LOG(X2)*2-8.6965*Xl/X2 
4023 IF FMA(27) < 46.7 THEN FMA(27) - 46.7 

4030 MHMA(27) - 9.51317 i .03508 * X2 - .000721 * W(27) - 4 52 * SQR(X(3)) 

4031 *MH49- 0831*LOG(X 1) '2-.01 16*X 1/X2 
4033 IF MHMA(27) < 2.2 THFN MHMA(27) - 2.2 

’WUC9 1/93/97 WBS 16 ***** RECOVERY & AUX SYS ******** 

4205 FMA(28) - 23030.42 f 236.89 * X2 - 4657.052 * SQR(X2) 

4206 IF FMA(28) < 101.1 THEN FMA(28) - 101.1 
4208 MHMA(28) - 6.95 

4210 FMA9I - -2032.57 I 10.54 * SQR(XI) - 23 91 *X2 t .16436 * WAV 20.27 • V(10) t 352,2 * SQR(X2) 

42111FFMA91 < 18.9 THEN FMA91 - 18.9 

4212 FMA97 - 8962.941 + 22.477 • SQR(Xl) - .0202 * XI - 1172.605 * LOG(X1) 

4213 IF FMA97 <65.9 THEN FMA97 - 65 9 

4214 Y - ! / FMA97: TW - W(29) / (W(29) 4 W(30)): FMA(30) - 1 f ((1 - TW) * Y) 

4215 7 - 1 / FMA91; FMA(29) - l / (Z f TW * Y) 

4220MHMA91 - -1368 29 + .000704 * XI + 21064.55 / SQR(Xl) + 138.37 • LOG(Xl) - 1.131 *SQR(X1) 

4221 IF MHMA91 < 1 .4 THEN MHMA91 -= 1 .4 ’ IF MHMA91 > 8.3 THEN MHMA91 - 8.3 

4222 MHMA(29) - (MHMA91 + 4.03) / 2 

4223 MHMA(30) - 4.03 

4900 ’APPLY MTBM & MHMA CALIBRATION FACTORS ‘COMPUTE SHUTTLE MHMA 

4910 FOR I - l TO 33 

4920 FMA(I) - MW(1) • FMA(I) 

4925 MHMA(0 - CM(I) • MHMA(0 
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IF SFU(1) - 'SHUTTLE* THFN FMA(I) - SMA(I) 

' COMPUTE SHUTTLE OFF MANHRS 

IF SE14(I) - •SHUTTLE* THFN MHMA(i) - C(I) * SMR(I) I PF(i) * C(l) * SMR(I) / (1 PF(I)) 
4930 NEXT 1 


5000 SCHEDULED MAINTENANCE MODULE 

IF CP$<5) - ‘DO NOT RECOMPUTE* THFN GOTO 5050 

5010 SCHP - 23.924 0545 * X2 - 10 563 * IXX](X2) * 3 039 * SQR|X2) + 0215 • W(3) / V(2) 4 .00067 * V(l) 

SCHP - -3.861213 0449 • X2 4 3 2794 * I.OG(Xl) t 02297 • SQR(XI) - 01 76 * (LOG(Xl)) * 3 - 7.289 * LOG(X2) 4 2 36973 • SQR(X2) 
IFSCHP < .132 THFN SCHP - 132 
IF SCHP > 794 THFN SCHP - 794 

5050 VEHICLE ROLL-UP UNADJUSTED MTBM 

5060 Y - 0 

5070 FOR I - 1 TO 33 

5080 IF OPS<[) - ’DELETE* THEN GOTO 5110 
5100 Y - Y » 1 / FMA(I) 

5110 NEXT I 
5220 VFMA - 1 / Y 

FOR I - 1 TO 33 
W(l) - W(l) * NRD(I) 

NEXT I 

END SUB 

SUB MANPWR 

7000 ’MANPOWER COMPUTATION MODULE ***•*• 

VMOH - 0: OMHMA - 0: OFMHMA - 0 

7005 TMA - 0 VMH - 0: AMHMA - 0: KK - 0: TOMH - 0 TFMH - 0 APF - 0: TMP - 0 
7020 FOR I - 1 TO 33 

POFF - PF(1); MP(1) - 0 
7030 IF OP$<0 - ’DELETE" THEN GOTO 7140 
7035 KK - KK 4 1 

7040 THRS(l) - GOH(I) 1 LOH(I) 4 TOH(I) + OOH(l) 4 ROH(l) 

7045 MA - NRD(l) * ((l - Pl(l)) * POH(I) / FMAT(l) f THRS(t) 1 FMAS(t)) 

TOTFR - TOTFR 4 1 / FMAS(l) 

7046 TMA - TMA 4 MA 
7050 MH(I) - MA * MHMA(I) 

7055 OMHMA - OMHMA 4- (1 - POFF) • MHMA(l): OFMHMA - OFMHMA 4- POFF * MHMA(I) 

7060 VMH - VMH 4- MH(I) 

7070 MEN - (MH(1) • X(15)) / (12 * X(ll) *(1 X( 1 2))) 

7080 MP(0 - INT(MEN 4 .999) 

7085 TMP - TMP 4 MP(I) 

7090 OMH(I) - (1 - POFF) • MH(I) 

7100 FMH(I) - POFF * MH(i) 

7110 TOMH - TOMH f OMH(I) 

7 1 20 TFMH - TFMH t FMH(l) 

7130 APF - APF 4 1 PF(1) 

7140 NEXT I 

7150 APF - APF / KK 

7155 OMHMA - OMHMA / KK: OFMHMA ^ OFMHMA / KK 
7160 AMHMA - VMH / TMA 

7170 SMP - (SCHP * TOMH *X(15))/ (12 •X(ll)*(l - X( 1 2») 

7180 SMP - INT(SMP 4 999) 

7190 TMP - TMP 4 SMP 
’ MIN CREW SIZE 
STP - 0: Cl - 0 
FOR l - 1 TO 33 

IF OP$(l) - "DELETE" THEN GOTO N1 
IF C(l) > MP(1) THEN TP ^ C(D ELSE TP - MP(I) 

STP - STP 4 C(I) 

CL - Cl 4 CA(1) • C(I) 

NL NEXT I 

STP - I NT i STP 4 999) 

Cl - INT(C1 4 999) 

END SUB 

SUB POPFHQS 

3000 POFF EQUATIONS 

FOR I - 1 TO 33: PF(I) - X(20): NEXT I’ DEFAULT VALUE 

FOR I - 1 TO 33 
W(I) - W(l) / NRD(l) 

NEXT I 
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3010 ‘WBS 1,2 A 3 AIRFRAME «***«**.* 

3050 PF(1) - 0835: PF(2) - 0835: PF(3) - ( 0835 t 088) / 2 
3100 ’WUC'12 AIRCREW COMPARTMENT «.*.*.**•***** 

3200 WUC13AVBS9 LANDING GEAR SYSTEMS .♦•.«***.****** 

3250 PF(9) - .02774 4 07F 06* XI .00194 * X2 4 . 193 16 * SQR(V(4)) 4 .007156 * SQR(W(9)) 

3251 IF PF(9) < . 134 THEN PE(9) - .134 

3252 IF PF(9) > .54 THFN PF(9) - 54 
3299 ’ 

4100 ******WUC23 PROPULSION SYSTFM *•** WBS 6, 7 & 8 ******** 

4160 FOR l - 10 TO 12 

4165 PF(!) - 1 14633 t 4.572F. 05 * W(f) - .01 1456 * SQR(W(I)) 

4166 IF PF(l) < 2 THFN PF(1) - .2 

4167 IF PF(I) > 725 THFN PF(I) - .725 
4 1 80 NF.XT I 

3400 ’WUC24 APU WBS 9. 10 **•**.*.♦*****« 

3450 PF(13) - -109.83 - .1645 * LOG(XI) i 1427 * V(7) - 6.1517 * SQR(V(7» l 15.751 * LOG(V(7)) t .066 * W( 13) - 5.6832 * SQR(W( 13)) 4 29 071 *LOG(W(I3» 

3451 IF PF(13) < .03 THFN PF( 1 3) - .03 ’ 

3452 IF PF(13) > .29 THFN PF(13) - 29 
3465 PF( 14) - 0 

3499 ’ 

3600 ’WUC 42/44 WBS 10 *** ELECTRICAL SYS ****** 

3650 PF42 - -26 565 - 00271 * V(7) 4- .005143 * W(16) - 74878 * SQR(W(16)) » 6.621 * LOG(W(I6)) 

3651 IF PF42 < .054 THFN PF42 - 054 

3652 IF PF42 > .53 THFN PF42 - 53 

3653 PF44 - 3.061 f 1 1 78F-05 * XI - 000127 * V(3) 42392 * LOG(XI) 4- 1 3468 * SQR(X2) 

3654 IF PF44 < .03 THFN PF44 - 03 

3655 IF PF44 > .47 THFN PF44 - .47 

3656 PF<16) - (PF42 / FH42 4 PF44 / FH44) / (I / FH42 \ 1 / FH44) 

3799 ‘ 

3800 ‘WUC45 WBS 1 1 HYDRAULICS SYS 

3850 PF(17) - 07614 - 00181 * X2 4 .001543 • SQR(Xl) 

3851 IF PF( 1 7) < .014 THFN PF(I7) - .014 

3852 IF PF( 17) > 33 THEN PF(17) - 33 

3899 ’ 

3300 WUC14 WBS 12.00 AFRO SURFACE ACTUATORS «***•***«•** 

3350 PF(18) - 5.51246 f 002663 • V<5) 000566 * W(I8) - 1.193 * LOG(W(18)) 4 10556 * SQR(W(18)) 

3351 IF PF(18) < .04 THFN PF( 1 8) - 04 

3352 IF PF(18) > .29 THEN PF(18) - 29 
3399 ’ 

3900 ’ WBS 12 XX AVIONICS GENERAL 

3950 PF(I9) - 7.1662 4 0209 * V( 1 1) - .00128 * WAV 4 .1774 * SQR(WAV) - 1.734 * LOG(WAV) 4 .0067 * WAV / V(I0) 

3951 IF PF(19) < .193 THEN PF( 1 9) - .193 

3952 IF PF(I9) > .532 THEN PF(19) - ,532 

3955 PF(20) - PF(19): PF(2t) - PF(19): PF(22) - PF(I9): PF(23) - PF(19): PF(24) - PF(19) 

4360 PF(23) - -8.734101 + .0000122 * XI 4 .007198 * X2 I 80066 * LOG(XI) - .02 * SQR(Xl) - 1 45834 * X(5) 4 .02554 * V (9) 4 4 19646 * SQR(X(5)) 

4361 IF PF(23) < .05 THEN PF(23) - 05 

4362 IF PF(23) > .44 THEN PF(23) - 44 

3500 ’WUC4 1/47 WBS 14 XX ENVIRONMENTAL CONTROL •*****»*••***• 

3550 PF47 - 23 852 - .00902 * X2 - 5.247 * IX)G(Xl) 4 301 * LOG(Xl) * 2 - 00212 * XI / X2 

3551 IF PF47 < .02 THFN PF47 - .02 

3552 IF PF47 > .33 THFN PF47 ^ .33 

3553 PF(25) - .0932: PF(26) - PF47 

4010 ’ WUC49/96 WBS 1 5 PERSONNEL. PROVISIONS **************** 

4050 PF49 - 19888 4 4 938F.-06 * XI .00205 * SQR(Xl) 4- 0004877 • V(7) 

4051 IF PF49 < .002 THEN PF49 - 002 

4052 IF PF49 > .45 THEN PF49 - .45 

4053 PF96 - 5.4686 f .16835 * X2 00448 * V(3) 4- 36521 * X(4) - 4.1528 * 3QR(X(4)) f .178 * SQR(W(27)) 

4054 IF PF96 < 23 THEN PF96 - .23 

4055 IF PF96 > 98 THEN PF96 - .98 
4057 PF(27) - (PF49 f PF96) / 2 
4099 1 

4200 ’ WUC9 1/93/97 WBS 16 ***** RECOVERY A AUX SYS ******** 

4230 FOR I - 28 TO 33; PA<I) - 004678: NEXT I 

4253 PF91 - 4.654 - 45718 * IXXl(Xl) 4 00242 * SQR(Xl) 

4254 IF PF91 < .01 1 THFN PE91 - 01 1 

4255 IFPF91 > .84 THEN PF91 - 84 

4257 PF(29) - (PF91 4 .01) / 2: PF(28) - 287; PF(30) - .01 ’ CHECK THIS 

4270 FOR I - 1 TO 33; IF PE(I) > 1 THEN PF(I) - 1 

427 1 NEXT I 
FOR I - I TO 33 
W(I) - W(I) * NRD(I) 

NEXT 1 
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END SUB 


SUB REDUNREL 

! 3 1 80 ' RELIABILITY SUBROUTINE 
13185 ’ LAUNCH RELIABILITY 
13190 VRI - I 
1 3200 FOR l - 1 TO 33 

13210 IF OP* I) - * DELETE" THEN GOTO 13260 
IF X(25) - 0 THEN GH - GOH(I) ELSE GH - 0 
13220 LI - W FMAC(I): T - GH 
13230 RT - FXP( LI • T) 

13240 IF (I > - 10 AND l < - 15) OR (I > - 19 AND I < - 24) THEN GOSUB 13300 El.SE Rl(!) - 1 - (I - RT) NRD(I) 
13250 VRI - VRI • Rl(l) 

1 3260 NEXT l 
13270 GOTO 13400 

13300 ‘K OUT OF N SUBSYSTEM CALXTJLATION 
13305 R1(I) - 0 

13310 NN - NRD(I): GOSUB 13355: MFAC - FAC 
13315 FOR J - K(l) TO NRD(!) 

13320 NN - J GOSUB 13355: JFAC - FAC 
13325 NN - NRD(T) - J GOSUB 13355 
13330 C - MFAC / (JFAC • FAC) 

13335 Rl(!) - R HO ♦ C * RT ' J • (1 - RT) " (NRD(I) - J) 

13340 NEXT J 
13345 RETURN 
13350 1 

13355 ’FACTORIAL SUBROUTINE 

13360 IF NN - 0 THEN FAC - l: RETURN 

13365 FAC - 1 

13370 FOR JK - 1 TO NN 

13375 FAC - FAC • JK 

13380 NEXT JK 

13385 RETURN 

13400 END OF POWERED PHASE 

13405 VR2 - l 

13410 FOR I - 1 TO 33 

13415 IF OP*I) - "DELETE" THEN GOTO 13440 
IF X(25) - 0 THEN GH - GOH(I) ELSE GH - 0 
13420 L - 1 / FMAC(I) T - GH f LOH(l) 

13425 RT - EXP(-L • (GH F LF * (T - GH))) 

13430 IF I - 10 OR 1 - 1 1 OR 1 - 12 THEN GOSUB 13445 ELSE R2(!) - 1 - (l - RT) ‘ NRD(I) 

13435 VR2 - VR2 • R2(I) 

13440 NEXT I 
13443 GOTO 13500 

13445 ’K OUT OF N SUBSYSTEM CAIXOILATION 
13450 R2(!) - 0 

13455 NN - NRD(l): GOSUB 13355: MFAC - FAC 
13460 FOR J - K(I) TO NRD(1) 

13465 NN - J: GOSUB 13355: JFAC - FAC 
13470 NN - NRD(I) - J: GOSUB 13355 
13475 C - MFAC / (JFAC * FAC) 

13480 R2(l) - R2(l) t c * RT * J * (1 RT) * (NRD(D - J) 

13485 NEXT J 

13487 RETURN 

13500 ORBIT INSERTION 

13505 VR3 - l 

13510 FOR I - 1 TO 33 

13515 IF OP* I) ^ "DELETE" THEN GOTO 13540 
IF X(25) - 0 THEN GH - GOH(I) El.SE GH - 0 
13517 TXO - GH: TX1 - TXO + LOH(l) 

13520 L - 1 / FMAC(I): T - GH + LOH(I) F TOH(I) 

13525 RT - F.XP(-L * ((T F TXO - TX1) f LF * (TX1 - TXO))) 

13530 IF I - 10 OR 1 - 1 1 OR I - 12 THEN GOSUB 13545 ELSE R3(l) - 1 - (1 - RT) ‘ NRD(!) 

13535 VR3 - VR3 • R3(0 
13540 NEXT 1 
13543 GOTO 13600 

13545 K OUT OF N SUBSYSTEM CALCULATION 
13550 R3(I) - 0 

13555 NN - NRD(l): GOSUB 13355 MFAC - FAC 
1 3560 FOR J - K(l) TO NRD(I) 

13565 NN - J GOSUB 13355: JFAC - FAC 
13570 NN - NRD(l) J GOSUB 13355 
13575 C - MFAC / (JFAC • FAC) 

13580 R3(I) - R3(l) t C • RT * J • (1 RT) * (NRD(I) J) 

13585 NEXT J 
13587 RETURN 
13600 RENTRY 
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13605 VR4 - l 
13610 FOR [ - 1 TO 33 

13612 IF 0?y\) - 'DELETE" THFN GOTO 13640 
IF X(25) - 0 THF.N GH - GOH(l) ELSE GH - 0 
13615 TXO - GH TX1 - TXO \ I.OH(I): TX2 - TXM TOH(I) 

13620 Lt - l / FMAC(I): T - GH t LOH(l) t TOH(l) ♦ OOH(l) 

13621 1.2 - I.F * 1,1 

13622 A - (B * T(2) * (B I) ! LI) ' (1 / B) 

13625 RT - EXP^-Ll * (TX2 t TXO TX1) - 1,2 *(TXI - TXO) - (T / A) * B t (TX2 / A) * B) 

13630 IF l - 10 OR [-11 OR 1-12 THF.N GOSUB 13645 FLSF, R4(I) - 1 - (1 RT) * NRD(l) 

13635 VR4 - VR4 * R4(l) 

13640 NEXT I 
13643 GOTO 13700 

13645 *K OUT OF N SUBSYSTEM CALCULATION 
13650 R4(i) - 0 

13655 NN - NRD(I): GOSUB 13355 MFAC - FAC 
13660 FOR J - K(l) TO NRD(l) 

13665 NN - J GOSUB 13355: JFAC - FAC 
13670 NN - NRD(l) - J; GOSUB 13355 
13675 C - MFAC / (JFAC * FAC) 

13680 R4(!) - R4(I) t C * RT " J • (1 - RT) * (NRD(l) - J) 

13685 NEXT J 
13687 RETURN 

13745 K OUT OF N SUBSYSTEM CALCULATION 
13750 R5(I) - 0 

13755 NN - NRD(l): GOSUB 13355 MFAC - FAC 
13760 FOR J - K(!) TO NRD(l) 

13765 NN - J: GOSUB 13355: JFAC - FAC 
13770 NN - NRD(I) J: GOSUB 13355 
13775 C - MFAC / (JFAC * FAC) 

13780 R5(f) - R5(I) ♦ C * RT * J • (1 - RTV (NRD(l) - J) 

13785 NFXT J 
1 3790 RETURN 

13700 ’MISSION COMPLETION 

1 3705 VR5 - l 

13710 FOR 1 - 1 TO 33 

13712 IF OP$(I) - * DF.LF.TF/ THEN GOTO 13740 
IF X(25) - 0 THEN GH - GOH(I) ELSE GH - 0 
13715 TXO - GH: TX1 - TXO f LOH(I): TX2 - TX1 f TOH(D: TX3 - TX2 1 OOH(I) 

13720 LI - 1 / FMAC(I): T - GH I LOH(I) I TOH(I) f OOH(I) I ROH(I) 

13721 1,2 - LF * LI 

13722 A - (B * T(2) " (B - 1) / LI) '(1/B) 

13725 RT - EXP(-L! * (TX2 + TXO - TX1) - L2 * (TX1 TXO) - (TX3 / A) * B f (TX2 / A) ‘ B - LI * (T TX3)) 
13730 IF I - 10 OR I - 1 1 OR I - 12 THEN GOSUB 13745 ELSE R5(l) - l - (1 RT) * NRD(I) 

13735 VR5 - VR5 * R5(l) 

1 3740 NEXT I 
END SUB 

SUB REMEQS 

FOR I - I TO 33 
W(l) - W(l) / NRD(I) 

NFXT I 

5500 ‘REMOVAL RATE EQUATIONS 

5510 Rll - .1934 - 6.309E-07 * W(3) 

5511 RI 2 - .20268 * .000588 * V( 12) 

5512 RR(1) - Rll: RR(2) - Rll: RR(3) - (Rll f R12) / 2 

5580 R46 - 5623 - .0955 * X(5) 

5581 IF R46 < .164 THEN R46 - . 164 

5582 IF R46 > 389 THEN R46 = .389 

5583 RR(4) _ R46: RR(5) - R46 

* THERMAL SYSTEMS - SHUTTLE BASED 
FOR I - 6 TO 8: RR(D - SRR(I): NEXT I 

5520 RR(9) - .8639 - .02963 * X2 

5521 IF RR(9) < 22 THFN RR(9) - .22 

5610 FOR I - 10 TO 12 

5611 RR(I) - .6211 - 0024872 • SQR(W(I)) 

5612 IF RR(1) < .157 THEN RR(I) - 157 

5613 IF RR(I) > 5120001 THEN RR(I)- 5120001 

5614 NEXT I 
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5540 RR(13) - 579 0007512 • SQR(Xl) 

554! IF RR(13) < 0 THF.N RR( 1 3) - .01 
5542 RR( 15) - SRR(!5) SHUTTLE BASED 
RR( 14) - 273 


5560 RR42 - 38533 001 * X2 * .17715 * LOG(X2) 

5561 IF RR42 < 23 THEN RR42 - 23; IF RR42 > 539 THEN RR42 - 539 

5562 RR44 - 2 3651 4 00201 • X2 .41152 • LOG(X2) 

5563 IF RR44 < 53 THEN RR44 - 53: IF RR44 > .872 THEN RR44 - 872 
5565 RR(16) - (RR42 ! FH42 + RR44 / EH44) / (I / FH42 t 1 / FH44) 

5570 RR( 17) - 368 

5530 RR(I8) - 4527 0006677 • X2 

5531 IF RR{ 18) < 0 THEN RR(18) - .07 

5590 RRC - .39735 - 4 2659 E -07 • XI f 2. 1635E-04 * SQR(Xt) 

5591 IF RRG < 0 THEN RRG - .235 

5592 IF RRG > 726 THEN RRG - .726 
FOR 1 - 19 TO 24: RR(t) - RRG: NEXT I 

5595 IF X(19) - 0 THEN RR(!9) - .4 RR(2I) - 4. RR(23) - .51 
RR(24) - -1.3 4- 14458 * LOG(Xl) ’ A/C COMPUTER SYSTEMS 
IF RR(24) < - .235 THEN RR(24) - RRG 
IF RR(24) > - 726 THEN RR(24) - RRG 

5550 R41 - 5294 - 8 914E-05 • W(25) 

5551 IF R41 < 0 THEN R41 - 168 

5552 R47 - 6026 - 0006758 * SQR(XI) 

5553 RR(25) - R41: RR(2 6) - R47 

5600 RR(27) - .274 

5620 R97 - 2.532 - 22837 • LOG(V(3)) 

5621 IE R97 < 0 THEN R97 - 128 

5622 R91 - 2.3489 35852 * LOG<X2) 

5623 IF R9I <0 THEN R91 - 461 SET EQUAL TO MEAN VALUE 

5624 IF R91 > 1 THEN R91 - .461 

5625 IF R97 > 1 THEN R97 - 968 
RR(28) - ?T? DRAG CHUTE 

5626 RR(29) - (R9I \ R97) / 2 
RR(30) - R97 

RR(32) - SRR(32) 

FOR I - 1 TO 33 
W(I) - W(I) * NRD(I) 

NEXT I 

’ BEGAN SHUTTLE VALUES 
FOR I - 1 TO 33 

IF SFI4(1) - ’SHUTTLE* THF.N RR(I) - SRR(I) 

NEXT I 

COMPUTE AVG REMOVAL RATE 
AREM - 0: SL - 0 
FOR I - 1 TO 33 

IF OPS - •DELETE* THEN GOTO BTM 
AREM - AREM + RR(Q / FMAS(I) 

SL - SL 4 1 / FMAS(I) 

BTM: NEXT I 
AREM - AREM / SL 

END SUB 

SUB SECONDARY 

11120 SUBROUTINE TO COMPUTE SECONDARY VARIABLES 

11122 'WETTED AREA 

1 1 123 V(3) - 486.026 f .1510165 * X2 * 2 
11130 'NBR WHEELS 

II140 V(4) - 2.189572 Y 6.66297E435 * X(l) - I.38718F.-10 • X(l) ' 2 
11150 V(4) - CINT(V(4)) 

1 1 160 IF V(4) < 3 THEN V(4) - 3 
11170 'NBR CONTROL SURFACES 

11180 V(6) - 3.588737 4 0005281 * X(I) 4 09493 • X2 - .005 17 * V(3) 

1 1 190 IF V(6) < 6 THEN V(6) - 6 
IF V(6) > 32 THEN V(6) - 32 
1 1200 V(6) - INT(V(6)> 

11210 NBR ACTUATORS 

11220 V(5) - -41 - .001425 * XI 4 2.0752E-09 * XI “ 2 + .007467 * V(3) - 1.0377 • SQR(V(3)) f .4828 * SQR(XI) f 14.97 * SQR(V(6)) - .017811 * V(6) * 2 
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11230 IF V(5) < 5 THF.N V(5) - 5 
IF V(5) > 42 THF.N V(5) - 42 
11240 V{5) - 1NT(V(5» 

1 1280 KVA MAX 

11290 V(7) - -214 812 ♦ 001098 * X(l) i 25,157! • LOG(X(l)) 

1 1300 IF V(7) < 1 1 THF.N V(7) - 1 1 
IF V(7) > 484 THF.N V(7) - 484 
1 1340 ’NBR AVIONICS SYSTFMS (TOTSUBS) 

11350 V(I0) - -40.4242 - I 879E-05 * X(l) l 6.192823 * LOG(X(l)) 

11360 IF V(10) < 9 THFN V(10) - 9 
11370 V(10) - C!NT(V(tO)) 

1 1420 NBR OIFFFRFNT AVIONICS SUBSYSTEMS 

1 1430 V(l I) - 9.674 - 1.858 * LOG(X(l» » 87684 * V( 10) + 1 .4557 * FOG(WAV) 

1 1440 IF V(ll) < 5 THFN V(ll) - 5: IF V(11) > V(I0) THFN V(ll) - V(10) 

1 1450 VCH) - C1NT(V(1 1)) 

1 1460 'BTU COOUNG 

11470 V(12) - -1114 52 - 12 0178 * X2 + 009405 • X2 * 2 + 230.872 * SQR(X2) 

1 1480 IF V(12) < 25 THFN V(12) - 25 
IF V( 1 2) > 470 5 THFN V(12) - 470.5 
11510 NBR HYDRAULICS SUBSYSTEMS 

11520 V(8) - 13.48 .56854 * X2 f .002409 * V(3) I .433276 * SQR(XI) 

1 1530 IF V(8) < 8 THEN V(8) - 8 
IF V(8) > 76 THFN V(8) - 76 
11540 V(8) - CINT(V(8)) 

11550 ’NBR INTERNAL FUEL TANKS 
11560 V<9) - 13 2236 f 1 851772 * LOG(X(l)) 

1 1570 IF V(9) < 2 THEN V(9) - 2 
11580 IF V(9) > 12 THFN V(9) - 12 
1 1590 V(9) - aNT(V(9)) 

V(13) - V(9) 

1 1620 ’FUSE!. AGE AREA 

1 1630 V(l) - -8832 .74 + .082862 * X(I) \ 1274.76 * LOG(X(I)) 32 456 * SQR(X(I)) 
11640 IF V(l) < 478 THFN V(l) - 478 
1 1650 ’FUSELAGE VOLUME 

1 1660 V(2) - -47618.5 ♦ 22143 * LOG(X2) - 5743 09 * SQR(X2) I 42623 * X2 ‘ 2 
11670 IF V(2) < 571 THEN V(2) - 571 

END SUB 

SUB SIM 

'X - nbr maintenance actions 

’ Y - oo veh task time 

’7 - off-veh task time 

’XX - removal rate 

' YY - sched maint oo-veh task time 

77 - sched maint off-veh task time 

'XC1 - avg crew size 

’C7,(I) - nbr crews assigned 

FOR I - 1 TO 9: CZ(I) - 0; NEXT I 


’STRUCTURAL 

X - 0: Y - 0 7 - 0 XX - 0: YY - 0: XCl - 0: Z7. - 0: XF - 0 
FOR I - 1 TO 3 

IF OP$(I) - •DELETE' THEN GOTO Q1 

X - X + NRD(D * ((1 - PI(I)) * POH(I) / FMAT(I) f THRS(l) / FMAS(l)) 

CZ(1) - CZ(1) f CA(I) 

Ql NEXT I 
FOR I - 1 TO 3 

IF OP$(I) - "DELETE" THEN GOTO Ql 1 

IF SELS(I) - 'SHUTTI.F,' THEN TSKT(I) - SMR(I) ELSE TSKTU) - (1 - PF(I)) * MHMA(I) / C(I) 

Y - Y +- TSKT(l) * (NRD(I) * ((1 - PI(I)) * POH(0 / FMAT(I) t THRS(I) / FMAS(I)) / X) 

TFMP - PF{I) * MHMA(I) / C(I) 

7 7 + TEMP * (NRD(I) * ((I - PI(I)) • POH(I) / FMAT(I) + THRS(I) 1 FMAS(I)) / X) 

XX - XX t RR(I) * (NRD([) * ((l - PI(1)) * POH(0 / FMAT(I) t THRS(I) / FMAS(I)) / X) 

YY - YY + .98 * TOMH * SCHP * (NRD(I) • ((1 - PI(I)) * POH(l) / FMAT(I) + THRS(I) / FMAS(I)) / (TMA * C(I))) 

77 - 77 f 02 * TOMH * SCHP * (NRD(I) * ((1 - PI(I)) * POH(T) / FMAT(I) t THRS(I) / FMAS(I)) / (TMA * C(0)) 

XCI - XCl + C(I) * (NRD(I) * ((1 - PI(!» * POH(I) / FMAT(1) t THRS(I) / FMAS(I)) / X) 

XF - XF t FR(I) • (NRD(0 * ((1 PI(D) * POH(I) / FMAT(I) + THRS(f) / FMAS(I)) / X) 

Ql 1 : NEXT I 
FRS(l) - XF 
MAS(l) - X 
MTROS(l) - Y 
MTRFS(l) - 7 
RFMS(i) - XX 
SMT(l) - YY 
SMTF(l) - 77 
SC(1) - XCl 
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TANKS 

X - 0. Y - 0 7. - 0: XX - 0 YY - 0 XCI - 0: ZZ - 0 XF - 0 
FOR I - 4 TO 5 

IFOPi(i) - "DELETE" THF.N GOTO Q2 

X - X 1 NRD<!) *<(1 - Pl(l)) * POH(l) / FMAT(I) I THRS(I) / FMAS(I)) 

CZ(2) - C7.(2) I CA(I) 

Q2 NFXT I 
FOR I - 4 TO 5 

IF OPS(I) - 'DFLF.TF." THF.N GOTO Q22 

IF SFL$<I) - ’SHUTTLF* THFN TSKT(I) - SMR|f) Fl,SE TSKT(I) - (t - PF(I)) • MHMA(I) / C(I) 

Y - Y * TSKT(I) * tNRD(I) * ((1 PI(I» * POH(I) / FMAT(l) t THRS(I) / FMAS(I)) / X) 

7 7 I (PF(I) * MHMA(I> / C(l)> * (NRD(i) * ((I PI(I» * POH(I) / FMAT(I) \ THRS(I) / FMAS(1» t X) 

XX - XX * RR(I) * (NRD(I) * ((l - Pl(l)) • POH(1) / FMAT(f) » THRS(I) / FMAS(I)) / X) 

YY - YY » 98 • TOMH * SCHP * (NRD(I) * ((I - Pl(I» * POH(!) / FMAT(I) f THRS(I) / FMAS(I)) / (TMA • C(!))) 
ZZ - ZZ ♦ 02 * TOMH • SCHP * (NRD(I) * ((1 P!([)) * POH(I) / FMAT(I) I THRS(0 / FMAS(I)) / (TMA * C(I))) 

XCI - XCI ♦ C(l) * (NRD(I) * ((I - Pl(l)) * POH(!) / FMAT(l) f THRS(I) / FMAS(I)) / X) 

XF - XF f FR(I) * (NRD(I) * «I Pl(()) * POH(I) / FMAT(I) I THRS(I) / FMAS(l)) / X) 

Q22 NFXT I 
FRS(2) - XF 
MAS(2) - X 
MTROS(2) - Y 
MTRFS(2) - 7. 

RFMS(2) - XX 
SMT(2) - YY 
SMTF(2) - 7.7 
SC(2) - XCI 

THERMAL PROTECTION 

X - 0: Y - 0: Z - 0: XX - 0; YY - 0 XCI - 0: ZZ - 0: XF - 0 
FOR I - 6 TO 8 

IF OPSO) - ’DELETE’ THEN GOTO Q3 

X-X) NRD(I) *{(1 ■ Pt([)) * POH(I) / FMAT(l) t THRS<I) / FMAS(I)) 

CZ(3) - CZ(3) \ CA(I) 

Q3 NFXT I 
FOR I - 6 TO 8 

IF OP$(l) - ’DELETE’ THEN GOTO Q33 

IF SF14(I) - ’SHUTTLE’ THEN TSKT(I) - SMR(I) ELSE TSKT(i) - (I - PF(I)) * MHMA(I) / C(!) 

Y-Y l TSKT(I) * (NRD(f) * ((1 - PI(I)) * POH(I) / FMAT(I) \ THRS(I) / FMAS(0) / X) 

Z - Z » (PF(1) * MHMA(I) / C(l)) * (NRD(I) * ((1 Pl(!)) • POH(I> / FMAT(I) + THRS(r> / FMAS(I)> / X) 

XX - XX f RR(I) • (NRD<I) * ((1 - P!(I)) * POH(0 / FMAT(I) t THRS(l) / FMAS^I)) / X) 

YY - YY y .98 * TOMH • SCHP * (NRD(l) • ((l - PI(!)) * POH(l) / FMAT(I) t THRS(I) / FMAS(I)) f (TMA * C(I))) 

77 - 77. \ .02 • TOMH • SCHP * (NRD(I) * ((1 - PI(I)) * POH(I) / FMAT(I) f THRS(0 / FMAS(0) / (TMA * C(l») 

XCI - XCI t C(I) * (NRD(I) • {(1 - PI(I)) * POH(I) / FMAT(F) + THRS(I) / FMAS(I)) / X) 

XF — XF ♦ FR(I) * (NRD(I) * ((1 P!(I» * POH(Q / FMAT(I) f THRS(0 / FMAS(I)) / X) 

Q33: NFXT I 
FRS(3) - XF 

MAS(3) - X 
MTROS(3) - Y 
MTRFS(3) - 7 
RFMS{3) - XX 
SMT(3) - YY 
SMTF(3) - 7.7. 

SC(3) - XCI 

* PROPUI^ION 

X - 0 Y - 0: Z - 0: XX - 0: YY - 0: XCI - 0: ZZ - 0: XF - 0 
FOR I - 10 TO 12 

IF OP$(I) - ’DELETE" THEN GOTO Q4 

X - X f NRD(0 * ((1 - PICO) * POH(I) / FMAT(I) ^ THRS(l) t FMAS(f)) 

C7<4) - CZ(4) 4 CA(I) 

Q4: NEXT 1 
FOR I - 10 TO 12 

IF OPS(I) - ’DELETE’ THEN GOTO Q44 

IF SF!4<I) - ’SHUTTLE’ THEN TSKT(I) - SMR(l) ELSE TSKT(l) - (1 PF(I)) • MHMA(I) / C(I) 

Y - Y f TSKT(I) * (NRD(I) * ((I - P!(I)) • POH(I) / FMAT(I) f THRS(0 / FMAS(I)) / X) 

Z - 7. f (PF(I) * MHMA(I) / C(I)) • (NRD(I) • ((t - PI(I)) * POH(I) / FMAT(I) + THRS(I) / FMAS(I)) / X) 

XX - XX + RR(I) * (NRD(I) * ((l - PI<I» * POH(l) / FMAT(l) + THRS(l) t FMAS(I)) / X) 

YY - YY t 98 * TOMH • SCHP • (NRD(I) * ((1 - PI(I)) • POH(I) / FMAT(I) ♦ THRS(I) / FMAS(l)) / (TMA * C(I))) 
ZZ - ZZ ♦ 02 • TOMH • SCHP * (NRD<I) * ((l - PI(I)) * POH(I) / FMAT(I) ♦ THRS(I) / FMAS(I)) / (TMA * C(I))) 
XCI - XCI t C(l) * (NRD(I) * ((1 * P1(I)) • POH(I) / FMAT(I) f THRS(I) / FMAS(I)) / X) 

XF - XF \ FR(I) * (NRD(I) • ((I - PI(I)) • POH(I) / FMAT(I) t THRS(0 I FMAS(I)) / X) 

Q44: NFXT I 
FRS(4) - XF 
MAS(4) - X 
MTROS(4) - Y 
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MTRFS(4) - 7 
Rr,MS(4) _ XX 
SMT(4) - YY 
SMTF(4) - 77. 

SC(4) - XC1 

POWFR/FLFCTRICAI. 

X - 0: Y - 0: 7. - 0 XX - 0: YY - 0 XC1 - 0: 77 - 0: XF - 0 
FOR I - 13 TO 16 

IF OP$(t) - * nr l, RTF’ THFN GOTO Q5 

X - X 1 NRD(I) * ((l - PI(I)) * POH(I) / RMAT(I) ! THRS(T) / FMAS(l)) 

CZ(5) - CZ(5j t CAM) 

Q5: NEXT I 
FOR I - 13 TO 16 

IF OPS(I) - 'DFI.FTF' THEM GOTO Q55 

Y - Y \ TSKT(I) * (NRD(I) * ((I 1*1(1)) * POH(!) I FMAT(I) » THRS(l) / FMAS(l)) / X) 

7-71 (PF(I) * MHMA(I) t C(I)) * (NRD(l) * ((l P!(l)) * POH(I) / FMAT(t) I THRS(I) / FMAS(I)) t X) 

XX - XX * RR(I) * (NRD(I) * ((l - PI(I» * POH(I) / FMAT(I) \ THRS(I) i FMAS(I)) / X) 

YY - YY \ 98 * TOMH * SCHP * (NRD(I) • ((1 - P1(f)) * POH(I) / FMAT(I) I THRS(I) / FMAS(l)) / (TMA * C(I))) 
77 - 77 \ ,02 * TOMH * SCHP * (NRD(l) • ((1 - PI(I)) * POH(I) / EMAT(I) I THRS(I) / FMAS(I)) / (TMA • C(l))) 
XC1 - XC1 l C(l) * (NRD(I) * ((l - Pl(0) * POH(I) / FMAT(I) F THRS(I) / FMAS(l)) / X) 

XF - XF f FR(I) * (NRD(I) * ((I PI(I)) * POH(I) i FMAT(f) \ THRS(I) / FMAS(I)) / X) 

Q55: NEXT I 
FRS(5) - XF 
MAS(5) - X 
MTROS(5) - Y 
MTRFS(5) - 7 
RFMS(5) - XX 
SMT(5) - YY 
SMTF(5) - 77 
SC(5) - XCl 

‘ MECHANICAL. SYSTEMS 

X - 0: Y - 0: 7 - 0: XX - 0: YY - 0: XCI - 0 77 - 0: XF - 0 
FOR I - 17 TO 1 8 

IF OP${[) - "DELETE* THEN GOTO Q6 

X - X f NRD(l) *((t - Pl(l)) * POH(I) / FMAT(I) * THRS(f) / FMAS(I)) 

C7(6) - CZ(6) f CA{I) 

Q6: NEXT I 

X9 - NRD(9) * ((! - PI(9)) * POH(9) / FMAT(9) I THRS(9) / FMAS(9)) 

IF OPS(9) < > * DELETE* THEN X - X + X9 
FOR I - 17 TO 18 

IF OPt(I) - "DELETE" THFN GOTO Q66 

IF SEL$(I) - "SHUTTLE* THEN TSKT(I) - SMR(I) El.SE TSKT(I) - (1 - PF(I» • MHMA(I) / C(I) 

Y-Y) TSKT(I) • (NRD(0 * ((1 - PI(I)) * POH(I) / FMAT(l) f THRS(0 / FMAS(I)) / X) 

7-71 (PF(I) * MHMA(I) ! C(I)) * (NRD(I) • ((I - PI(I)) * POH(I) / FMAT(I) f THRS(I) / FMAS(t» / X) 

XX - XX + RR(I) * (NRD(I) * ((1 - PI(I)) * POH(I) / FMAT(I) Y THRS(I) / FMAS(I)) / X) 

YY - YY I .98 * TOMH * SCHP * (NRD(I) * ((1 - PI(I)) * POH(I) / FMAT(l) +• THRS(I) / FMAS(I)) / (TMA * C(l))) 

77 - 77 Y .02 * TOMH * SCHP * (NRD(t) * ((1 - PI(I)) * POH(I) / FMAT(I) Y THRS(I) / FMAS(I)) / (TMA • C(I))) 

XCl - XCl 1 C(I) * (NRD(I) • ((I - PI(I)) • POH(I) / FMAT(I) + THRS(l) / FMAS(T)) / X) 

XF - XF t FR(I) * (NRD(I) * ((1 - P1(I)> * POH(I) / FMAT(I) Y THRS(I) / FMAS(I)) / X) 

Q66 NEXT I 


IF SFI^(9) < > ’DELETE* THEN 
Y - Y 1 TSKT(9) • X9 / X 
7 - 7 ♦ (PF(9) * MHMA(9) / C(9)) * (X9) / X 
XX - XX 1 RR(9) * X9 / X 

YY - YY 1 .98 * TOMH * SCHP * X9 / (TMA • C(9)) 

77 - 77 1 02 * TOMH * SCHP * X9 / (TMA • C(9)) 

XCl - XCl + C(9) * X9 / X 
XF - XF t FR(9) * X9 / X 
CZ(6) - C 7(6) Y CA(9) 

END IF 
FRS(6) - XF 
MAS(6) - X 
MTROS(6) - Y 
MTRFS(6) - 7 
REMS(6) - XX 
SMT(6) - YY 
SMTF (6) - 77 
SC(6) - XCl 

AVIONICS 

X - 0: Y - 0: 7 - 0: XX - 0: YY - 0: XCI - 0: ZZ - 0: XF - 0 
FOR l - 19 TO 24 

IF OPS(I) - "DELETE* THEN GOTO Q7 

X - X 1 NRD(I) * ((l P1(0) * POH(l) / FMAT(I) 4 THRS(I) / FMAS(I)) 
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CZ(7) - C7,(7) i CA(I> 

Q7 NEXT I 
FOR I - 19 TO 24 

IF OPS<l) - "DELETE* THEN GOTO Q77 

IF SFI4<I) - "SHUTTLE* THEN TSKT(I) - SMR(I) EIJSF. TSKT(I) - (I - PF(I)) * MHMA(I) / C(I) 

Y - Y \ TSKT(I) * (NRD(I) • ((I - p[(I)) * POH(I) / FMAT(I) 4 THRS(l) / FMAS(O) / X) 

7 - 7 i (PF(I) * MHMA(I) / C(I)> • (NRD(I) * ((1 - PI(I)) * POH(I) / FMAT(I) f THRS(I) I FMAS(I» / X) 

XX - XX I RR( l) * (NRD(I) • ((1 - PI(l)) • POH(I) / FMAT(I) 4 THRS(t) / FMAS(I)) / X) 

YY - YY 4 98 * TOMH * SCHP • (NRD(I) • ((I - Pf(f)) • POH(I) / FMAT(I) 4 THRS(I) i FMAS(i)) / (TMA * C(l))) 

77 - 77 4 02 • TOMH * SCHP * (NRD(I) • ((1 - PKO) * POH(I) / FMAT(I) 4 THRS(I) / FMAS(O) / (TMA * C(I))) 

XCI - XC1 * C(l) * (NR 0(1) * ((! PI(!)) • POH(I) f FMAT(I) t THRS(I) ! FMAS(l)) ( X) 

XF — XF ♦ FR(I) * (NRD(l) • ((t - PI(I)) * POH(l) / FMAT(I) 4 THRS(I) / FMAS(I)) / X) 

Q77 NEXT I 
FRS(7) - XF 
MAS(7) - X 
MTROS(7) - Y 
MTRFS(7) - 7 
RFMS(7) - XX 
SMT(7) - YY 
SMTF(7) - 77 
SC(7) - XCI 

ECS/UFE SUPPORT 

X - 0: Y - 0: 7 - 0: XX - 0 YY - 0 XCI - 0: 77 -O XF-O 
FOR I - 25 TO 29 

IF OP*l) - ’DELETE* THEN GOTO Q8 

X - X t NRD(I) • ((1 - PKI» * POH([) / FMAT(I) F THRS(I) / FMAS(I)) 

C7(8) * C7(8) 4 CA(I) 

Q8: NEXT l 
FOR 1 - 25 TO 29 

IF OP$(I) - 'DELETE* THEN GOTO Q8S 

IF SFIJ<I) - “SHUTTLE* THEN TSKT(I) - SMR(I) ELSE TSKT(I) - (I - PF(I)) * MHMA(I) t C(I) 

Y — Y 4 TSKT(I) * (NRD(I) • ((l - PI(I)) * POH([) / FMAT(I) f THRS(I) / FMAS(I)) t X) 

7 7, t (PF(I) • MHMA(0 f C(I)) • (NRD(I) * ((1 - PI([)) • POH(f) / FMAT(I) f THRS(I) / FMAS(I)) / X) 

XX - XX 4 RR(I) * (NRD(I) * ((1 - PI(1)) • POH(I) / FMAT(I) 4 THRS(I) / FMAS(I)) / X) 

YY - YY F .98 • TOMH • SCHP • (NRD(I) * ((1 - Pl(i)) * POH(f) / FMAT(l) F THRS(f) / FMAS(I» / (TMA * C(I))) 
77 - 77 4 02 * TOMH • SCHP * (NRD(I) * ((1 - Pl(t)) * POH(0 / FMAT([) F THRS(I) / FMAS(I)) / (TMA * C(l») 
XCI - XCI 4 C(l) • (NRD(I) * ((l - PI(I)) * POH(l) / FMAT(I) F THRS(I) / FMAS(I)) / X) 

XF - XF 4 FR(I) * (NRD(D * ((1 PI(I» * POH(I) / FMAT(l) 4 THRS(0 / FMAS(I)) / X) 

Q88: NEXT I 
FRS<8) - XF 
MAS(8) - X 
MTROS(8) - Y 
MTRFS(8) - 7 
REMS(8) - XX 
SMT(8) - YY 
SMTF(8) - 77 
SC(8) - XCI 

AUXILIARY SYSTEMS 

X - 0: Y - 0: Z = 0: XX - 0: YY - 0: XCI = 0: 77 - 0: XF - 0 
FOR I - 30 TO 33 

IF OP*!) - "DELETE* THEN GOTO Q9 

X - X 4 NRD(l) • ((1 PK<0) * POH(I) / FMAT(I) 4 THRS(I) / FMAS(I)) 

CZ(9) - CZ(9) 4 CA(I) 

Q9 NEXT I 
FOR I - 30 TO 33 

IF OP* I) - "DELETE* THEN GOTO Q99 

IF SF1*I) - "SHUTTLE* THEN TSKT(f) - SMR(I) ELSE TSKT(I) - (1 PF(I)) • MHMA(I) / C(I) 

Y - Y 4 TSKT(l) * (NRD(I) * ((l - PI(I)) * POH(I) / FMAT(I) + THRS(l) / FMAS(I» / X) 

7-74 (PF(I) • MHMA(I) / C(I)) * (NRD(I) • ((! - P!(I)) * POH(I) / FMAT(I) + THRS(0 / FMAS(I)) / X) 

XX - XX 4 RR(I) • (NRD(I) • ((1 - PI(I)) * POH(0 / FMAT(I) F THRS(I) / FMAS(I)) / X) 

YY - YY 4 .98 • TOMH • SCHP * (NRD(I) • ((1 - PI(I)) * POH(I) / FMAT(I) F THRS(I) / FMAS(I)) / (TMA • C(I))) 
77 — 77 F .02 * TOMH * SCHP * (NRD(I) * ((1 - P1(I)) * POH(I) / FMAT(I) F THRS(l) / FMAS(I)) / (TMA * C(I))) 
XCI - XCI 4 C(l) * (NRD(I) * ((1 - PI(I)) * POH(I) / FMAT(I) F THRS(I) / FMAS(I)) / X) 

XF - XF 4 FR([) * (NRD(0 * ((1 PI(D) * POH(I) / FMAT(I) F THRS([) / FMAS(I)) / X) 

Q99: NEXT I 
FRS(9) - XF 
MAS(9) - X 
MTROS(9) - Y 
MTRFS(9) - 7 
RF.MS<9) - XX 
SMT(9) - YY 
SMTF(9) - 77 
SC(9) - XCI 

END SUB 
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SUB SPACEMTBM 

2000 'MODULE TO DETERMINE SPACE ADJ MTBM 
2010 Y7 - 0: YX - 1 
2020 TOR J - 1 TO 33 

2030 TO - GOH(J): T1 - TO 4 LOH(J): T2 - Tl 1 TOH(J) 

2040 T3 - T2 4 OOH(J): T4 - T3 I ROH(J) 

2050 IE OP$(J) - "DELETE" THEN GOTO 2100 

2055 IP SFL$(J) - "SHUTTLE* AND X(6) - 0 THEN MEAN - EMAT(J) / PI(J): GOTO 2080 

2060 LI - PI(J) / EMAT(J); L2 - I.F * LI ’compute inherent failure rate 

2070 GOSUB 2200 

2080 FMAS(J) - MEAN 

2090 YZ — YZ 4 I / MEAN 

2095 YX - YX * RT4 

2100 NEXT J 

2110 SVEMA - I / Y7 VR - YX 
EXIT SUB 

2200 ’MODULE TO COMPUTE SPACE ADJUSTED MTBM 
2210 A - (B * T(2) " (B - l) / LI) * <t / B) 

2220 A I - (I - EXPULI * TO)) / LI 

2230 A2 - EXP(-L1 * TO) * (I - EXP(-L2 * (Tl - TO))) / L2 

2240 A3 - EXP('L2 * (Tl TO)) • (EXP(-L2 * TO) / L2 EXP(-L2 * (T2 f TO - Tl)) / L2) 

2255 GOSUB 2320 FIND A4 USING SIMPSON’S RULE 

2260 A4 - EXPLL1 * (T2 4 TO - Tl) - L2 • (Tl - TO) f (T2 / A) " B) * AREA 

2270 A5 - EXP(-Ll * (T2 4 TO - Tt) - L2 * (Tl - TO) - (T3 / A) ' B ♦ (T2 / A) " B) * (1 - EXP(-L1 • (T4 - T3))) / I l 

2280 MEAN - A1 4 A2 4 A3 t A4 t A5 

2290 RT4 ~ EXP(-U * (T2 t TO - Tl) L2 • (Tl TO) - (T3 t A) * B I (T2 / A) * B LI * (T4 - T3)> 

2300 MEAN - MEAN / (1 - RT4) 

2310 RETURN 

2320 N - !NT((T3 - T2) / .5) 

2330 IF N - 0 THEN AREA - 0 RETURN 
2340 DX - (T3 - T2) / N 
2350 FX - 4 

2360 71 - T2: SUM - EXP(-(7I / A) * B) 

2370 FOR I - I TO N 

2380 71 - 71 I DX 

2390 Yl - EXP(-(7.1 / A) * B) 

2400 IF I - N THEN FX - I 

2410 SUM - SUM 4 FX * Yl 

2420 IF FX - 4 THEN FX - 2 EI^F, FX - 4 

2430 NEXT 1 

2440 AREA - DX * SUM / 3 
2450 RETURN 

END SUB 

SUB SPARES 

8000 ’SPARES CALCULATIONS 

8010 ARR - 0: TS - 0: KK - 0: TNR - 0 

8020 FOR I - 1 TO 33 

8030 IF OP$(I) - "DELETE* THEN GOTO 8180 

8040 NR(I) - RR(I) * (NRD(I) * (1 - PI(I» * POH(I) / FMAT(1) f THRS(I) / FMAS(I))’ MEAN NBR REMOVALS 
8045 MN - NR(t) 

8050 IF MN < - 20 THEN GOSUB 8300 ELSE GOSUB NORM'COMPUTE FILL RATE RQMT - POISSON/NORM 
8055 S(i) - STK: FR(I) - F 
8060 TNR - TNR t NR(I) 

8150 ARR - ARR 4 RR(I) 

8160 TS - TS 4 S(I) 

8170 KK - KK 4 1 
8180 NEXT I 
8190 ARR - ARR / KK 
8200 GOTO BOT 

8300 ’ COMPUTE SPARES USING POISSON DIST 

8310 P - EXP(-MN): F - P 

8320 IF P > - X( 13) THEN JD - 1: GOTO 8370 

8330 JD - 1; F - P 

8340 P - P * MN / JD 

8350 JD - JD 4 1.F-F4P 

8360 IF F < X(13) THEN GOTO 8340 

8370 STK - JD - 1 

8380 RETURN 

’NORMAL (STRONG’S) APPROXIMATION 
NORM: FC - 1 - X(13) 

SD - SQR(MN) 

7 - ( 5 - FC) • ((. 14822401# i ( 29670919# - (.5 - FC) " 2)) + ( 0014532591# / ( 25052 17 - ( 5 F) ‘ 2)) t 2 0489) 
STK - CINT(MN I 7 * SD) 
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r-i-FC 

Rf.TURN 


BOT RFTURN TO MAIN 
FND SUB 
SUB TFCH 

2500 ’TECHNOLOGY ADJUSTMENT MODULE 

2510 Y - 0 

2520 FOR 1 - 1 TO 33 

2530 IF OP$(l) - "DELETE" THEN GOTO 2560 

IE SE14(I) - 'SHUTTLE* THEN XYZ - 1992 El.SE XYZ - 1986 
2540 EMAT(I) - FMA(I) * (1 1 TC(I» ' (YR - XYZ) 

FMAT(I) - FMAT(l) * X(24) * X(23) ’rel growth 
2550 Y - Y J 1 / FMAT(I) 

2560 NEXT l 
2570 TVFMA - W Y 
EXIT SUB 

F.ND SUB 

File: RAMW.BAS create ACSII file 


10 NASA, LANGLEY RESEARCH CENTER 

20 MTBM COMPUTATIONAL MODEL NASA RESEARCH GRANT 
30 ’DEVELOPED BY C. EBELING, UN1V OF DAYTON 9/10/94 (updated) 

35 • ........ COMBINED PRE/CONCEPTUAL MODEL 

40 ’ 

50 SAVE AS "RAMX BAS’ Reliability & Maintainability Model REVISED 
’ module for writing to a file mput/output 

60 COMMON SHARED YR, B. XI, X2, LF, VR1, VR2, VR3, VR4, VR5, VR, AREM 

66 COMMON SHARED VFMA, TVFMA, SVFMA, CVFMA, OMHMA, OFMHMA, TMA, AMHMA 

67 COMMON SHARED SCHP, VMH, TOMH, TFMH, APF, PI, P2, P3, WAV, FH42, FH44 

68 COMMON SHARED FMA1 1 , FMA12, VNAM$, ARR, TNR, TS, SKIP 
COMMON SHARED SMP, TMP, VMOH, WGTF, WING, WF, PWF 
COMMON SHARED ETREL, SRBREL, ETS, SRBS, RTITLEJ, ABTFS 
COMMON SHARED STP, STE, MTE, TME, STF, MTF, TMF, Cl 

70 DIM SHARED WBS$(35), X(50), NAMS(50), THRS(35), MHMA(35), MH(35) t MP05), OMH(35), FMH(35) 

71 DIM SHARED SEL$(35), T(I0), CP$(9), CA(35), RELF(35), RF(35) 

72 DIM SHARED GOH(35), IX>H(35). TOH(35), OOH(35), ROH(35), R(35), TSKT(35), POH(35) 

73 DIM SHARED V(15), SNAM$(I5), FMAT(35), FMAC(35), FMAS(35), S(35), SMA(35), SMR(35) 

74 DIM SHARED MW(35), C(35), CM(35), OPS(35), TG(35), PWTS(35) 

75 DIM SHARED FMA(35), PF(35), PA(35), RR(35), W(35), NR(35), FR(35) 

76 DIM SHARED NRD(35), K(35), Rl(35), R2(35), R3(35), R4(35), R5(35) 

77 DIM SHARED PWT1(35), PWT2{35), PWT305), PWT4(35). SRR(35) 

DIM SHARED ETSUB$<5), F,TMBA(5), ETHRS(5), ETABR(5), ETMTR(5), F.TR(5), ETCREW(5) 

DIM SHARED SRBSUB$(5), SRBMBA(5), SRBHRS(5), SRBABR(5), SRBMTR(5), SRBR(5), SRBCREW(5) 
DIM SHARED SWBS$<t0), MAS(9), MTROS(9), MTRFS<9), R£MS(9), SMT(9), SMTF(9), SC(9), FRS(9) 
DIM SHARED Pl(33), CZ(9) 

COMMON SHARED PIO, CZQ 

COMMON SHARED SWBS$0, MASQ, MTROSQ, MTRFS0. REMSQ, SMTQ, SMTF(), SCO, ™S0 

COMMON SHARED WBSJO, XQ, NAMSO, THRSQ. MHMAO. MHO, MPO, OMH0, FMH0 

COMMON SHARED SEL$0, TO, CP$0, CAO, RELF0, RFO 

COMMON SHARED GOHQ, LOH0, TOHO, OOH0, ROH0. R0. TSKT0, POH0 

COMMON SHARED V(), SNAM$0, FMATO, FMAC0, FMASO. SQ, SMA0, SMRQ 

COMMON SHARED MW(), CO, CMO. OP$0, TGQ, PWTS0 

COMMON SHARED FMAO, PFQ. PAQ, RRO. W0, NRO, FR() 

COMMON SHARED NR DO, K0, R10. * 2 0, R30. R40, R5() 

COMMON SHARED PWT10, PWT20, PWT30, PWT40, SRRQ 

COMMON SHARED ETSUMO. ETMBAO, ETHRS0. ETABR0, ETMTR0, ETR0, ETCREW0 
COMMON SHARED SRBSUB*), SRBMBAQ, SRBHRSO, SRBABRQ, SRBMTR0, SRBR0. SRBCREW0 

SUB WRFILF 

’ module to write output to a fie 
CIS : COLOR 1 1 

PRINT ; PRINT TAB(10); 'RAM- ASCII OUTPUT FILES’: PRINT 
FILES "* ASC * 

PRINT : COLOR 1 1 

PRINT TAB(12); 'OUTPUT WILL BE SAVED IN FILE *; VNAM$, ' ASC' 

LOCATE 20, 12: INPUT 'ENTER RETURN TO PROCEED OR A POSITIVE NBR TO ABORT’; RET 
IF RET > 0 THEN EXIT SUB 

OPEN VNAMS t '.ASC' FOR OUTPUT AS #1 
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PRINT#!, TAB(5); RTITLES 

PRINT #1, TAB(5); COMMENTS PRINT DM, PRINT #1, 

PRINT #1, TAB(25), 'INPUT PARAMETERS & DATA - page I"; PRINT #1, 

PRINT #1, TAB(l); 'VEHICLE IS \ VNAMS, TAB(35), 'DATE: DATES; TAB(60), 'TIME; ’; TIMES: PRINT #1, 

PRINT #1, : PRINT #1, 

PRINT #1, TAB(5); "SYSTEM PARAMETER VALUES': PRINT #1 , 

PRINT #!, TAB(IO), "PARAMETER*, TAB(50); 'VALUE': PRINT #1, 

EOR I - 1 TO 25 

PRINT #1 , TAB(IO); NAM$(f); TAB(50); X(l) 

IE 1 - 2 THEN PRINT #!, TAB(IO), 'WING SPAN'; TAB(50); WING 
NEXT I 

PRINT #1, PRINT #1 , PRINT # I, TAB(5); 'SECONDARY VARIABLE VALUES" 

PRINT ft], PRINT tf] , TAB(IO); 'VARIABLE'; TAB(40); 'VALUE* PRINT #1, 

EOR I - 1 TO 13 

PRINT ft 1, TAB(IO), SNAM$(I), TAB(40), V(T) 

NEXT I 

PRINT #1, CHR${!2); 

PRINT tf], TAB(25), 'INPUT PARAMETERS & DATA - page 2'; PRINT #1, 

PRINT #1, TAB(5); 'SUBSYSTEM WEIGHTS & CALIBRATION FACTORS' 

IF X(I6) - 0 THEN PRINT #1, : PRINT #1, TAB(I); "WBS\ TAB(30), 'WEIGHT', TAB(40). 'PCT WGT*; TAB(52); "MTBM FACTOR'; TAB(65), ' MTTR FACTOR'; ■ GOTO 
FEX2 

PRINT #1, PRINT tfl . TAB(I), 'WBS\ TAB(30); 'WEIGHT'; TAB(40), *MTBM FACTOR'; TAB(50), 'MTTR FACTOR' 

ADD - 0 

FEX2 EOR I - 1 TO 33 

IF OPS(t) - 'DELETE' THEN GOTO FXF.l 

ADD - ADD ♦ W(I) 

IE X{16) - 0 THEN PRINT #1, TAB(l); WBSS(I); TAB(30); W(I), TAB(40); PWTS(I), TAB(52), MW(I); TAB(65); CM{I): GOTO FXEI 
PRINT #1, TAB(l); WBSS(I); TAB(30); W(l); TAB(40); MW(I); TAB(50); CM(I) 

FXEI: NEXT I 

PRINT 0], PRINT #1. TAB(I); 'TOTAL WEIGHT'; TAB(30); ADD; TAB(50), 'WEIGHT FACTOR IS \ PWF 
PRINT #1, PRINT ft \ , : PRINT #1, TAB(IO); 'SCHEDULED MAINTENANCE PERCENT IS'; TAB(45); 100 * SCHP 
PRINT #1, CHR$(12), 

PRINT #1, TAB(25); "INPUT PARAMETERS A DATA - page 3" PRINT #1, 

PRINT 01, : PRINT 0\, : PRINT 0\, TAB(5); 'SUBSYSTEM OPERATING HOURS' PRINT#!, 

PRINT#!, TAB(l); "SUBSYSTEM’; TAB(30), ’PROCESS'; TAB(39); 'PAD*; TAB(46), 'BOOST*; TAB(52); 'RE TIME'; TAB(61); 'ORBIT'; TAB(68); "REENTRY- 
PRINT #1, TAB(32); 'TIME'; TAB(39); 'TIME', TAB(4£); 'TIME*, TAB(52); 'TO-ORBIT'; TAB(61); 'TIME'; TAB(68); 'TIME' 

FOR I - I TO 33 

IF OPS(I) - 'DELETE' THEN GOTO FEX4 

PRINT 0\, TAB(l); WBS$(I); TAB(32); POH(I); TAB{39), GOH(l); TAB(46); IX)H(I); TAB(53); TOH(I); TAB(60), OOH(I); TAB(67); ROH(I) 

FEX4: NEXT I 
PRINT #1, CHR$(I2); 

PRINT 0], TAB(25); 'INPUT PARAMETERS & DATA - page 4" PRINT #1, 

PRINT#!, : PRINT #1, . PRINT #1, TAB(5); 'SUBSYSTEM COMPUTATION FACTORS': PRINT #1, 

PRINT #1. TAB(I); 'SUSBSYTFM'; TAB<28), 'TECH GRWTH', TAB(40), 'CRITICAL'; TAB(55); 'REMOVAL*; TAB(70); 'PERCENT- 
PRINT#!, TAB{28); 'FACTOR*; TAB(40); 'FAIL RATE'; TAB<55); 'RATE'; TAB(70); 'OFF EQUIP': PRINT #1, 

FOR I - I TO 33 

IF OP$(l) - 'DELETE' THEN GOTO FEX5 

PRINT #1, TAB(I); WBS$(I); TAB(28), TG(I); TAB(40), PA(1); TAB(55); RR(I); TAB(70), PF(I) 

FEX5: NEXT l 
PRINT#!, CHR$(12); 

PRINT TAB(25); 'INPUT PARAMETERS A DATA page 5*: PRINT #1, 

PRINT#!, PRINT #1, : PRINT #1, TAB(5); 'MORE SUBSYSTEM COMPUTATION FACTORS': PRINT #1, 

PRINT#!, TAB(l); 'SUSBSYTFM'; TAB(28); 'CREW', TAB(40); *NBR CREWS’; TAB(55); 'FRACTION INHERENT' 

PRINT #1, TAB(28), 'SIZE'; TAB<40); 'ASGN'; TAB(55); 'FAILURES': PRINT #1, 

FOR I - 1 TO 33 

IF OPS(I) - 'DELETE' THEN GOTO FF.X6 

PRINT #1, TAB(l); WBS$(I); TAB(29); C(I); TAB(40); CA(I); TAB(55); PI(I) 

FF.X6: NEXT I 
PRINT #1, CHR$(12); 

PRINT #1, TAB(25); "INPUT PARAMETERS A DATA - page 6*: PRINT #1, 

PRINT#!, : PRINT #1, : PRINT #1 , TAB(5); 'SUBSYSTEM REDUNDANCY* : PRINT #1, 

PRINT#!, TAB(I); "SUSBSYTEM*; TAB{28), 'REDUNDANT'; TAB(45), * MIN NBR" 

PRINT#!, TAB(28); 'SUBSYS"; TAB(45); 'REQUIRED*: PRINT #1, 

FOR I — 1 TO 33 

IF OPS(I) - 'DELETE* THEN GOTO FEY6 
IF K(l) - 0 THEN K(I) - 1 

PRINT#!, TAB(l); WBS$(0 ( TAB(29), NRD(0; TAB(45), K(I) 

FFY6: NEXT I 
PRINT #1, CHR$(12); 


PRINT #1, TAB(25), 'INPUT PARAMETERS A DATA - page 7": PRINT #1, 

PRINT#!, : PRINT #1, : PRINT #1, TAB(5); "SHUTTLE (FILE MAINTAINED) UTILIZED VALUES': PRINT#!, 
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PRINT #1, TAB(l). ‘SUSBSYTEM*. TAB(30), "MTBM\ TAB(50); "MTTR " ; 

FOR I - l TO 33 

IF OP$(l) - ‘DELETE* THEN GOTO FF.X7 

IF SF.1.KD < > 'SHUTTLE' THEN GOTO FFX7 

PRINT #1 . TAB(I), WBSS<l) f TAB(30); SMA(I); TAB(.SO), SMR(I). 

FFX7: NEXT I 
PRINT #1, CHRS<12), 

•*•*** PRINT #1, MODULE FOR RELIABILITY REPORT *•****• 

X - 0: Y - 0: Z - 0 AVIONICS ROLLUP 
FOR I - 19 TO 24 

IF OP* I) - ‘DFLF.TF.' THEN GOTO NAl 
IF RELF(I) - l THEN GOTO NAl 
X - X f \f FMA(I) 

Y - Y ♦ ! / FMAT(I) 

7.-7. \ l / FMAS(I) 

NAl: NEXT 1 

IF X > 0 THEN XA - 1 / X 
IF Y > 0 THEN YA - I / Y 
IF 7 > 0 THF.N 7.A - 1 / 7 
MNFMA - 0 
10 - I IF- - 33 

PRINT #1. TAB(5), R TITLES; PRINT#!, PRINT #1, 

PRINT #1, TAB(20); 'RELIABILITY REPORT - at mission abr.*; X(24) f ' - page 1‘: PRINT #1, 

PRINT #1, TAB(I); ‘VEHICLE IS VNAM$; TAB(35); 'DATE: \ DATES; TAB(60); ‘TIME; TIMES: PRINT #1, 

PRINT #1 , ‘all MTBM’s arc for a single subsystem, e g. one engine* 

PRINT #t, TAB(I), *WBS", TAB{26), ‘TECH/GROWTH MTBM*, TAB(45), *GRND PROC MTBM‘; TAB(61); ‘MISSION MTBM* 

PRINT #1. TAB(29); ‘{all MAs)’; TAB(45); ’(External MA's)’; TAB(6l); ‘(inherent MA’s)* 

FOR 1 - IO TO IE 

IF OPS<I) - ‘DELETE* THEN GOTO SA1 
MNFMA - MNFMA \ (1 - PI(I)> / FMAT(I) 

IF I - 9 THEN PRINT #1, TAB(!); WBSS(1); ' MSN’S/FAILURF. *; TAB(35); FMAT(I); TAB(48); FMAT(I) / (1 - P1(I»; TAB(61); FMAS(I) 
IF I < > 9 THEN PRINT #1, TAB(l); WBSS<I); TAB(35); FMAT(I); TAB(48); FMAT(I) / (1 - P!(I)); TAB(61); FMAS(I) 

IF I - 24 THEN PRINT #1, TAB(5), ‘AVIONICS ROLLUP', TAB(32); XA; TAB(45); YA; TAB{58); ZA 
SAL NEXT I 

PRINT #1, PRINT #1. 

PRINT #1, TAB(5); "VEHICLE*; TAB(35); TVFMA, TAB(48), 1 / MNFMA; TAB(61); SVFMA 
PRINT #1, CHR*12); 

X - 0 Y - 0: 7 - 1 K - 0 AVIONICS ROLLUP 
FOR 1 - 19 TO 24 

IF OP*t) - * DELETE.’ THEN GOTO NA2 
K - K I 1 
X - X ♦ PA(I) 

Y-Y ) 1 / FMAC(0: YA - 1 / Y 
7.-7.* R(l) 

NA2: NEXT I 

IF K - 0 THEN K - 1 
XA - X / K 
IO - 1 : IE - 33 

PRINT #1, TAB(20), ‘RELIABILITY REPORT at mission nbr.‘; X(24); ‘ - page 2‘: PRINT #1, 

PRINT #1, TAB(5), COMMENTS: PRINT #1, : PRINT #1, 

PRINT #1, ’critical MTBM’s arc for a single subsystem, e g one engine*: PRINT #1, 

PRINT #1, TAB(l); *WBS', TAB(28); ‘CRITICAL FAILURE’. TAB(48); ‘CRITICAL’; TAB(tiO); 'SUBSYS NON-’ 

IF X(25) - 0 THEN PRINT #1. TAB(28); * R ATE- grud tiff’; TAB<48); ‘MTBM’; TAB(60); ‘REDUNDANT MSN REL‘ 

IF X(25) - I THEN PRINT #1, TAB(28); ’RATE -air only*; TAB(48); ‘MTBM*; TAB(60); ‘REDUNDANT MSN REL‘ 

PRINT #1, TAB(l), -WBS‘; TAB(33); ’CRITICAL*; TAB(48); 'CRITICAL*; TAB(60); ’SUBSYS NON-" 

PRINT #1, TAB(33); ‘FAIL RATE*; TAB(48); *MTBM*; TAB(60), 'REDUNDANT MSN REL": PRINT 0\, 

FOR 1 - IO TO IE 

IF OP$(I> - ‘DELETE* THEN GOTO SA2 

PRINT #1, TAB(t); WBS$(I), TAB(33); PA(1); TAB(48); FMAC(l); TAB(65); R(I) 

IF I - 24 THEN PRINT #1, TAB(5); ‘AVIONICS ROl-LUP’; TAB{27); XA; 'AVG‘; TAB(45); YA; TAB(62); Z 
SA2: NEXT I 
PRINT #1, : PRINT #1, 

PRINT #1, TAB(5), ‘VEHICLE*. TAB(48), CVFMA, TAB(65); VR 
PRINT #1, CHR$(12); 

IO - I IF. - 33 

PRINT #1, TAB(20), *RFL.I ABILITY REPORT at mission nbr *; X(24); ‘ - page 3‘: PRINT #1, 

X - l: Y - l: Z - l ’AVIONICS ROLLUP 
FOR I - 19 TO 24 

IF OP$(Q - ‘DEI-F.TE* THEN GOTO NA3 
X - X * Rl(!) 

Y-Y * R2(I) 

7.-7 * R3(i) 
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NA3 NEXT I 

PRINT #1 , "reliabilities based upon redundancy" 

PRINT #1, TAB(l); "WBS", TAB(33), "LAUNCH"; TAB(45), 'RND OF"; TAB(60), "ORBIT" 

PRINT #1 , TAB(33); *TIMF.’; TAB(45); "POWER FLT"; TAB(60); "INSERTION" PRINT #1, 

FOR l - 10 TO IF 

IF 0P$(1) - "DELETE" THEN OOTO SA3 

PRINT #1 , TAB(l), WBS$(I), TAB(33); R!(I), TAB(45), R2(I); TAB(60), R3(I) 

IF I _ 24 THEN PRINT #1, TAB<5); "AVIONICS ROLLUP", TAB(30); X; TAB(42); Y, TAB(57), 7 
SA3 NEXT I 
PRINT *1, PRINT #1. 

PRINT #1, TAB(S); "VEHICLE", TAB(33), VR1; TAB(45); VR2, TAB(60), VR3 
PRINT #1, CHR$( l 2); 

X _ I; Y - I 7 - 1 AVIONICS ROLLUP 
FOR 1-19 TO 24 

IF OPS(I) - "DELETE* THEN GOTO NA4 
X - X * R4(I) 

Y - Y * R5(I) 

NA4: NEXT l 


10 - 1: IE - 33 

PRINT #1 , TAB(20), "RELIABILITY REPORT - at mission nbr,*; X(24), * - page 4" PRINT #1, 

PRINT #1, "reliabilities based upon redundancy" 

PRINT #1, TAB(I), ’WBS"; TAB(45); "REENTRY", TAB(60), "MISSION- 
PRINT #1, TAB(60); "COMPLETION* PRINT#!, 

FOR I - 10 TO IE 

IF OP$(I) - "DELETE" THEN GOTO SA4 

PRINT #1, TAB(l); WBSS(r); TAB(45); R4(l); TAB(60), R5(I) 

IF I - 24 THEN PRINT #1 , TAB(5); "AVIONICS ROLLUP", TAB(42). X; TAB(57), Y 
SA4: NEXT I 
PRINT #1, : PRINT #1, 

PRINT #1, TAB(5); " VEHICLE ", TAB(45); VR4, TAB(60), VR5 
PRINT #1, CHRS(12); 

' PRINT #1, MODULE FOR MAINTAINABILITY REPORT 
X-0:Y-0:Z-0:K-0 AVIONICS ROLLUP 
FOR I - 19 TO 24 

IF OP$(I) - "DELETE" THEN GOTO SA7 
K - K I 1 

X-Xl NRD(I) * (1 - PI(I)) * POH(I) / FMAT(I) I THRS(l) / FMAS(I) 

Y - Y t MHMA(I) 

7.-7. I (NRD(I) * (1 ■ PI(I)) * POH(I) / FMAT(I) I THRS(I) / FMAS(I)) * MHMA(I) 

SA7; NEXT I 
YA - Y / K 
IO - I: IE — 33 

PRINT #!, TAB(5); RT1TLES: PRINT #1, 

PRINT #1 , TAB(5); COMMENTS: PRINT #1 , PRINT #1 , 

PRINT #1, TAB(20); "MAINTAINABILITY REPORT - at mission nbr."; X(24), ’ - page 1": PRINT #1, 

PRINT#!, TAB(l); "VEHICLE IS ", VNAMS, TAB(35); "DATE: "; DATES; TAB(60); "TIME: *; TIMES: PRINT #1, 

PRINT#!, TAB(l), "WBS"; TAB(30); "MA1NT ACTIONS/MSN", TAB(50), *AVG MANHR/MA"; TAB(65); "AVG MANHRS/MSN" 

PRINT # I , 

FOR I - IO TO IE 

IE OPS(I) - "DELETE* THEN GOTO SAM 

PRINT #1, TAB(l); WBSS(l); TAB(32); NRD(I) * (1 - PI(I)) * POH(I) / FMAT(T) f THRS(I) / FMAS(I); TAB(50); MHMA(I), TAB{65); (NRD(I) * (1 - PICO) * POH(I) / FMAT(l) 
l THRS(I) / FMAS(I)) * MHMA(I) 

IF I - 24 THEN PRINT #1, TAB{5), "AVIONICS ROLLUP"; TAB(29); X; TAB(47); YA; "(AVG)"; TAB(63); Z 
SAM; NEXT I 
PRINT #1, 

PRINT #1, TAB(5); "TOTAI^", TAB(32); TMA, TAB(47); AMHMA, "WT AVG*; TAB(65); VMH 
PRINT #1, CHRS<12); 

IO - 1: IE - 33 

PRINT #1, TAB (20); "MAINTAINABILTY REPORT - at mission nbr "; X(24); " - page 2" 

X-OY-OZ — 0:K-0 AVIONICS ROLLUP 
FOR I - 19 TO 24 

IE OP$(I) - "DELETE* THEN GOTO SA6 
K-K) I 
X - X \ OMH(I) 

Y - Y l FMH(I) 

7. - 7 \ l - PF(I) 

SA6: NEXT I 
7 A - 7. / K 
PRINT#!, ; PRINT #1, 

PRINT #1, TAB(l); "WBS*; TAB{32); "ON-VEH MH"; TAB(47); "OFF VEH MH". TAB(62), TRACTION ON-VEH": PRINT #1, 

FOR I - 10 TO IE 

IF OPS(l) - "DELETE" THEN GOTO SA5 

PRINT #1, TAB(I); WBS$<r); TAB(32); OMH(I); TAB(50); FMH(I); TAB(65); 1 - PF(I) 


C-56 



IF 1 - 24 THFN PRINT #1, TAB(5), "AVIONICS ROLLUP", TAB<29). X. TAB<47), Y; TAB(62), ZA, "(AVG)" 

SA5: NEXT I 
PRINT #1, PRINT #1, 

PRINT 01 , TAB(3); * UNSCHEDULED*, TAB02), TOMH. TAB(50); TFMH, TAB(65), APF, "(AVG)": PRINT 01, 

PRINT 01, TAB(5). "SCHEDULED"; TAB(32); .98 * SCHP * TOMH; TAB0O), 02 * SCHP * TOMH: PRINT #1, 

PRINT 0 \ . TAB(5), "TOTAL". TAB(32), TOMH I 98 * SCHP * TOMH. TAB(50); TFMH t .02 * SCHP * TOMH 
PRINT 0\, CHR$<!2); 

X - 0 Y - 0 AVIONICS ROLLUP 
FOR l - 19 TO 24 

IF OPS(I) - "DF.LFTF* THFN GOTO MY8 
X - X * NRD(I) * (1 Pl(0) * POH(l) / FMAT(I) 

Y - Y ( NRD(l) • THRSl.I) ! FMAS(I) 

MY8 NF.XT I 

IO - I IF - 33 
TXX - 0. TYY - 0 

MY7 PRINT 01, TAB(IO), "MAINTAINABILTY REPORT - at mission nbr "; X(24); " page 3": PRINT #1 . 

PRINT 0\ , TAB(5); 'Note: Ground processing MA’s consist of induced and no defect MA's." 

PRINT 0\, TAB(5); "Mission MA's are inherent equipment failures* PRINT 0\, 

PRINT #1. TAB(l); "WBS", TAB(32); "GRND PROCMA". TAB(50), "MSN MA"; TAB{65), "TOTAL MA": PRINT #1, 

FOR I - IO TO IF 

IF OP$(I) - "DELETE" THFN GOTO MY9 

XX - NRD(J) * (1 - PI(I)> * POH(I) / FMAT(I): YY - NRD(I) * THRS(l) l FMAS(I) 

TXX - TXX t XX: TYY - TYY I YY 

PRINT #1. TAB(I). WBS$(1); TAB(32); XX; TAB(50). YY; TAB(65), XX I YY 

IF I - 24 THEN PRINT 0\, TAB(5); "AVIONICS ROLLUP" ; TAB(29); X; TAB(47); Y; TAB(62); X \ Y 
MY9 NEXT I 
PRINT #1. 

PRINT #1. TAB(5); "TOTAL"; TAB(32). TXX. TAB(50); TYY. TAB(65); TXX + TYY 
PRINT #1, CHR$(i2) 

'PRINT #1 , MANPOWER MODULE 

X - 0: Y - 0: Z - 0 AVIONICS ROLLUP 
FOR I - 19 TO 24 

IF OP$(0 - " DELETE" THEN GOTO SA8 
X - X t MH(I) 

7. - 7 t MP(I) 

SA8: NEXT I 

Y - X(15) * X / 12 
MT - 0 

IO - 1 IE - 33 AS TP - 0 
PRINT #1. TAB(5); R TITLES: PRINT 01, 

PRINT #1, TAB(5); COMMENTS: PRINT 0), : PRINT #1, 

PRINT #1. TAB(25), "MANPOWER REPORT a! mission nbr "; X(24); " ": PRINT #1. 

PRINT #1. TAB(1); "VEHICLE IS "; VNAMS; TAB(35), "DATE: "; DATES; TAB(60); "TIME: TIMES: PRINT 0\, 

PRINT #1. TAB(5), "AVAIL HRS/MO- ", X(1I), TAB(40), "INDIRECT WORK- ’; 100*X(12); "96- 
PRINT #1 , "manpwr is computed from manhrVmo divided by avail direct hrs per mo per person" 

PRINT 0\, "nbr crews is computed from manpwr divided by avg crew* 

PRINT fl, TAB(I). "WBS"; TAB(27), "MANHRS/MSN"; TAB(42); "MANHRS/MO", TAB(58), "MANPWR"; TAB(65), "AVG CREW" 

PRINT #1, 

FOR I - IO TO IE 

IF OP$<!) - "DELETE* THEN GOTO PA I 
IF I > - 19 AND I < - 24 THEN ASTP - ASTP + C(I) 

PRINT Ml, TAB{I); WBSS(I); TAB(30); MH(I); TAB(45); X(15) * MH(I) / 12; TAB(59); MP(0; TAB(65); C(I) 

IF 1 - 24 THEN PRINT #1 , TAB(5); "AVIONICS ROLLUP". TAB(28); X. TAB(43); Y; TAB(58). Z; TAB(63); ASTP 
MT - MT * C(I) • CA(I) 

PA1 NEXT I 
PRINT #1, 

PRINT #1, PRINT 01, TAB{5); "UNSCHEDULED"; TAB(30); VMH, TAB(45); VMH * X(I5) / 12; TAB{59); TMP - SMP; TAB(65); STP 
PRINT #1 , PRINT #1 , TAB(5); "SCHEDULED"; TAB0O); SCHP * TOMH; TAB(45); X( 1 5) • SCHP * TOMH / 12; TAB(59); SMP; TAB(6 5); X(14) 

PRINT #1. PRINT #1, TAB<5), "TOTAL"; TAB(30); VMH i SCHP * TOMH; TAB(45), (VMH F SCHP * TOMH) • X(15) / 12; TAB(59); TMP; TAB(65); STP + X(I4): COIX)R 
14 

PRINT 01, : PRINT 01, TAB(l); "Tot personnel assigned SUM (avg crew size x asgd crews) f schd manpwr"; TAB(75); INT(MT) + SMP 
PRINT 0\, CHR$( 12); 

’ PRINT 0\, SPARES RESULTS 

X - 0: Y - 0: Z - 0: K - 0 AVIONICS ROLLUP 
FOR I - 19 TO 24 

IF OPS(I) - "DEI-ETE" THEN GOTO SB7 
K-K I I 
X - X ♦ RR(I) 

Y - Y i NR(I) 

Z - 7 \ S(l) 

7.X - ZX * FR(I) 

SB7: NEXT! 

XA - X / K 
ZX - ZX / K 
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10 - I: IF. - 33 

PRINT #1 , TAB(5); RTITLFS: PRINT #1 , 

PRINT #1 , TAB^S); COMMENTS PRINT#!. ; PRINT #1, 

PRINT #1. TAB(25); 'SUBSYSTEM SPARES REPORT at mission nbr.'; X(24); " ’ PRINT #1, 

PRINT#!, TAB(l); 'VEHICLE IS *; VNAM$; TAB(35); ’DATE; *; DATES; TAB(60); 'TIME: TIMES: PRINT #1. 

PRINT #1, TAB(5); 'NOTE: failures arc assumed to be Poisson' PRINT #1, 

PRINT # 1 , TAB(32); 'REMOVAL', TAB(42); 'MEAN DEMAND', TAB(56); ’SPARES"; TAB(65), "EFFECTIVE" 

PRINT #1, TAB(l); 'WBS*; TAB(32); "RATE/MA"; TAB<42); 'PER MISSION*; TAB(56); * RQMT*, TAB(65); "FILL RATE" 

PRINT#!, 

FOR I - 10 TO IE 

IF OPS(I) - "DELETE" THEN GOTO SA9 

PRINT #1, TAB(l), WBSS(U; TAB(30), RR(I), TAB(4t); NR{I), TAB(55); S(l); TAB(65); FR(I) 

IF I - 24 THEN PRINT #1, TAB(5); 'AVIONICS ROLLUP", TAB{25); XA, "(AVG)"; TAB(40); Y; TAB(56); 7, TAB(62); ZX; "(AVG)* 

SA9: NEXT I 
PRINT #1, : PRINT #1, 

PRINT #1, TAB(5); "TOTAI^", TAB(27); ARR, "(AVG)"; TAB(43); TNR, TAB(55); TS 
PRINT #1, CHR$(12); 

’MODULE TO PRINT #!, VEHICLE TURN TIME 
TT - 0: TI - 0: TMAX - 0 
SUM - 0: CT - 0: SUMC - 0 
FOR I - 1 TO 33 

IF OPS(I) - "DELETE' THEN GOTO TA1 
CT — CT 4 1 

SUMC - SUMC I CCO 

IF SEL$(I) - ’SHUTTLE. " THEN TSKT(l) - SMR(I) ELSTi TSKT(I) - (I - PF(I)) * MHMA(I) / C(f) 

TI - (NRD(I) • (I - PI(I)) * POH(I) / FMAT(I) 4 THRS(I) / FMAS(I)) * TSKT(I) 1 CA(I) 

IF TI > TMAX THEN TMAX - TT JJ - I 
TT - TT 4 TI 
SUM - SUM 4 TSKT(I) 

TA 1 NEXT I 

AVCREW - SUMC / CT 
SCHT - .98 * SCHP * TOMH / X(14) 

GET - TT 4 SCHT ATSK - SUM t CT 
W - 0: X - 0: Y - 0: Z - 0: K - O AVIONICS ROLLUP 
FORI - 19 TO 24 

IF OPS(I) - "DELETE" THEN GOTO TA2 
K-K l 1 
X - X 4 CA(I) 

Y - Y I TSKT(I) 

7. - 7, 4 (NRD(I) * (I - PI(I)) * POH(I) / FMAT(I) 4 THRS(l) / FMAS(I)) * TSKT(I) t CA(I) 

W - W 4 NRD(I) * (1 PI(D) * POH(I) / FMAT(I) 4 THRS(I) / FMAS(I) 

TA2: NEXT I 
YA - Y / K 
IO - I: IE - 33 

PRINT #1, : PRINT #1, TAB(5); RTTTLES: PRINT#!, 

PRINT #1, TAB(5); COMMENTS: PRINT#!, PRINT #1, 

PRINT#!, TAB(20); "VEHICLE TURN TIME REPORT at mission nbr "; X(24); * * page I’: PRINT #1, 

PRINT #1, TAB(l); ’VEHICLE IS ’; VNAMS; TAB(35); 'DATE: *, DATES; TAB(60); 'TIME; ", TIMES 
PRINT #1, 

PRINT #1, TAB(25); "ON- VEHICLE*, TAB(38); * TOT ’, TAB(52); "NBR CREWS', TAB{62); "AVG SUBSYS REPAIR- 

PRINT #1, TAB(l); *WBS*; TAB(25); *MTTR (HRS)’; TAB(38); 'MAIN ACT"; TAB(52), 'ASSIGNED"; TAB(62); "TIME PER MSN" 

PRINT#!, 

FOR I - IO TO IE 

IF OPS(I) - ’DELETE" THEN GOTO TA3 

TEMP - (NRD(I) * (1 - PI(I)) * POH(I) / FMAT(I) 4 THRS(I) / FMAS(D) * TSKT(I) / CA(T) 

IF I - JJ THEN TSAVE - TEMP 

PRINT #1 , TAB(I), WBS$(I); TAB(28); TSKT(l); TAB(40); NRD(I) * (1 - Pl(!)) * POH(I) / FMAT(I) 4- THRS(I) / FMAS(I); TAB(54); CA(I), TAB(62); TEMP 
IF I - 24 THEN PRINT #1, TAB(5); 'AVIONICS ROLLUP", TAB(27); ’AVG*; YA; TAB(40); W; TAB(53); X; TAB(61); Z; 'TOT’ 

TA3: NEXT I 
PRINT #1, : PRINT #1, 

PRINT #1, TAB(I), "AVG CREW SIZE’; AVCREW; TAB(26); *AVG TASK TIME*; ATSK; TAB(60); TT; "(TOTAL)’ 

PRINT #1, CHR$(12); 

PRINT #1, TAB(20), 'VEHICLE TURN TIME REPORT at mission nbr’; X(24); ’ - page 2*: PRINT #1, 

PRINT #1, TAB(I); 'VEHICLE IS ’; VNAMS; TAB05), 'DATE: ’; DATES, TAB(60); 'TIME: ", TIMES: PRINT #1, 

PRINT 01, : PRINT#I, TAB(5); "CATEGORY*; TAB(52); 'MIN TURN TIMES': PRINT #1, 

PRINT #1, TAB(5); *SCHD MAINT MSN TASK TIME'; TAB(55); SCHT; "HRS' 

PRINT #1, TAB(5); ’UNSCHEDULED MAINTENANCE TIME*; TAB(55), TSAVE, 'HRS* 

PRINT #1, TAB(5); 'INTEGRATION TIME’; TAB(55); X(17); ’DAYS' 

PRINT #1, TAB(5); 'LAUNCH PAD TIME*; TAB<55); X(18); "DAYS’ 

PRINT #1, TAB(5); 'MISSION TIME INC GRND PWR TIME', TAB<55); T(0) 4 T(4); 'HRS* 

IF TSAVE < SCHT THEN TSAVE - SCHT 

VTT - T(0) f T(4) f TSAVE 4- X(17) * 24 4 X(18) * 24 

PRINT #1, TAB(5); 'TOT VEHICl.E TURNAROUND TIME', TAB(55); VTT; ’TOTAL. HRS* 

PRINT #1, : PRINT #1, 

PRINT#!, TAB(l); "ONE SHIFT/DAY MAINTENANCE': PRINT #1, 
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DVTT - (T{0) t T(4))/24 t (TSAVF) / 8 f X(!7) \ X(18) 

PRINT #1, TAB(5); 'TOT VEHICLE TURNAROUND TIME"; TAB(55); DVTT, ' DAYS* 

PRINT #1. TAB(5), 'AVG MISSIONS/YR/VEHICLE'; TAB(55), 12 *21 / DVTT 

PRINT #1, TAB<5), ‘COMPUTED FLEET SIZE "; TAB(55); !NT((X(15) / 12) / (21 / DVTT) f 99) 

PRINT#!. PRINT#!, 

PRINT #1. TAB(l), ‘TWO SHIFTS/DAY MAINTENANCE" PRINT #1, 

DVTT - (T(0) \ T(4))/ 24 t (TSAVE) / 16 ♦ X(17) I X(18) 

PRINT #1, TAB(5), *TOT VEHICLE TURNAROUND TIME"; TAB(55); DVTT; 'DAYS' 

PRINT #1, TAB(5); 'AVG MISS IONS/ YR/ VEHICLE'; TAB<55); 12*2!/ DVTT 

PRINT #1. TAB(S), 'COMPUTED FLEET SIZE '; TAB(55), INT((X(15) / 12) f (21 / DVTT) I 99) 

PRINT #1, PRINT #1, 

PRINT #1. TAB(I), 'THREE SHIFTS/DAY MAINTENANCE': PRINT #!, 

DVTT - (T(0) \ T(4)) / 24 t (TSAVF) / 24 f X(17) f X(18) 

PRINT #!, TAB(5), 'TOT VEHICLE TURNAROUND TIME"; TAB(55); DVTT, 'DAYS' 

PRINT#!. TAB(5); ‘AVG MI S S ION S/YR/ VEHICLE'; TAB(55); 12*21/ DVTT 

PRINT #1 , TAB(5), "COMPUTED FLEET SIZE ', TAB(55). INT((X(15) / 12) / (21 / DVTT) I .99) 

PRINT #1, 

PRINT #1 , TAB(5), 'NOTE: assumes parallel unsch/sched maint tasks, 8 hr shifts, and 21 work days a month* 
PRINT #1, CHR$(12); 

PRINT #1, TAB(20), 'VEHICLE TURN TIME REPORT at mission nbr '; X(24); " - page 3’: PRINT #1, 
PRINT #1, TAB(l); 'VEHICLE IS '; VNAM$; TAB(35); 'DATE: '; DATES; TAB(60); 'TIME: TIMES 

PRINT #1, 

PRINT #1, PRINT #1, TAB(5); 'CATEGORY", TAB(52); 'MAX TURN TIMES’: PRINT#!, 

PRINT #1, TAB<5); 'SCHD MAINT MSN TASK TIME"; TAB(55); SCHT; ‘HRS' 

PRINT #1. TAB(5); 'UNSCHED MAINT TIME'; TAB(55); TT; "HRS' 

PRINT #1, TAB(5); 'INTEGRATION TIME', TAB(55); X(17); 'DAYS' 

PRINT #1, TAB{5), ’LAUNCH PAD TIME'; TAB(55), X(I8); 'DAYS' 

PRINT#1, TAB<5); 'MISSION TIME INC GRND TIME' ; TAB<55); T(0) f T(4); 'HRS’ 

VTT - T(0) I T(4) I TT t SCHT I X(17) * 24 i X(18) * 24 

PRINT #1, TAB(5); 'TOT VEHICLE TURNAROUND TIME', TAB{55); VTT; ‘TOTAL HRS' 

PRINT#!, PRINT #!, 

PRINT #1 . TAB(l), "ONE SHIFT/DAY MAINTENANCE* PRINT #1. 

DVTT - (T(0) I T(4» / 24 I (TT t SCHT) / 8 I X<17) ♦ X< 1 8) 

PRINT #1 , TAB(5); 'TOT VEHICLE TURNAROUND TIME’; TAB(55), DVTT, 'DAYS' 

PRINT #1, TAB(5); 'AVG MISSIONS/YR/VEHICLE', TAB(55); 12 * 21 / DVTT 

PRINT #1, TAB(5), 'COMPUTED FLEET SIZE TAB(55); INT((X(15) / 12) / (21 / DVTT) ♦ .99) 

PRINT #1, PRINT #1, 

PRINT #1, TAB(l); 'TVO SHIFTS/ DAY MAINTENANCE': PRINT #1. 

DVTT - (T(0) * T(4)) / 24 i (TT f SCHT) / 16 T X(17) f X(18) 

PRINT #1, TAB(5); 'TOT VEHICLE TURNAROUND TIME'; TAB(55); DVTT; 'DAYS' 

PRINT #1, TAB(5); 'AVG MISSIONS/YR/VEHICLE'; TAB(55); 12 * 21 / DVTT 

PRINT #1. TAB(5); 'COMPUTED FLEET SIZE *, TAB(55); INT((X(15) / 12) / (21 / DVTT) f .99) 

PRINT #1, PRINT #1, 

PRINT #1. TAB(l); "THREE SHIFTS/ DAY MAINTENANCE': PRINT #1, 

DVTT - (T(0) + T(4)) / 24 ♦ (TT f SCHT) / 24 * X(17) * X(18) 

PRINT #1, TAB(5); "TOT VEHICLE TURNAROUND TIME'; TAB(55), DVTT. 'DAYS' 

PRINT #!, TAB(5); 'AVG MISSIONS/ YR/VEHICLE"; TAB(55); 12*21/ DVTT 

PRINT #1 , TAB(5); 'COMPUTED FLEET SIZE TAB(55); INT((X(15) / 12) / (21 / DVTT) * .99) 


PRINT #1, TAB(5); 'NOTE: assumes sequential tasks, 8 hr shifts, and 21 work days a month’ 
PRINT #1, CHR$(12); 

CLOSE #1 

END SUB 
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APPENDIX D 
VARIABLE DEFINITIONS 


Variable Name 

Basic 
Variabl e 

Definition 

DRY WGT 

X(l), XI 

Empty weight (without fuel, oil, 
crew, or cargo) of vehicle in 
pounds . 

LEN+WING 

X2 

Aircraft length plus wing span 
in feet. 

WETTED AREA 

V( 3 ) 

Total external surface area of 
vehicle in square feet (includes 
canopy). External skin laid 
flat. 

FUSELAGE VOL 

V( 2 ) 

Total volume of fuselage in 
cubic feet excluding any engine 
inlet duct volume. 

FUSELAGE AREA 

V(l) 

External area of fuselage in 
square feet including canopy. 

CREW SIZE 

X(3) 

Total number of crew members in 
a normal flight crew for the 
vehicle. 

NBR PASSENGERS 

X(4) 

Maximum number of passengers . 

NBR MAIN ENGINES 

X(5) 

Number of primary engines. 

NBR WHEELS 

V(4) 

Total number of primary 

landing gear wheels normally 
used during taxi, take-off or 
landing. 

NBR ACTUATORS 

V( 5 ) 

Total number of actuators to 
operate all vehicle moveable 
flight surfaces. May be 
hydraulic or electro-mechanical . 

NBR CONT SUR 

V( 6 ) 

Total number of control surfaces 


ailerons, rudders, 
elevator tabs, flaps, spoilers 
and slats both primary and 
secondary. 
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V(7) Total normal electrical power 

output capacity of engines, 
motors and APU driven 
generators/alternators in KVA. 


NBR 

HYDR. SUBSYS 

V(8) 

NBR 

FUEL TK 

V(9) 

NBR 

OXIDIZER TK 

V( 13 ) 

NBR 

TOT AVIONICS 
SUBS 

V(10) 

NBR 

DIF AVIONICS 
SUBS 

V(ll) 

BTU 

COOLING 

V( 12 ) 


Total number of subsystems 
requiring use of hydraulic 
or pneumatic power in their 
normal and/or auxiliary 
operating role. 

Number of separate internal 
fuel cells, bladders and tanks. 

NBR of separate, internal 
oxidizer tanks. 

Total number of avionics (AN 
nomenclature ) subsystems . 

Total number of different 
avionics subsystems (two or 
more identical units count 
as one) . 

Total cooling capacity of air- 
conditioning equipment used for 
personnel and equipment cooling. 
Measured in BTU/HR/1000. 
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